[Pgp-tools-commit] r118 - trunk/gpgsigs

[Peter Palfrader]

Author: weasel
Date: 2005-07-06 11:48:07 +0000 (Wed, 06 Jul 2005)
New Revision: 118

Modified:
   trunk/gpgsigs/gpgsigs
Log:
And minor fixes

Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs	2005-07-06 11:47:00 UTC (rev 117)
+++ trunk/gpgsigs/gpgsigs	2005-07-06 11:48:07 UTC (rev 118)
@@ -202,13 +202,15 @@
 		if (defined $before) {
 			if ($before eq 'S' || $before eq 's') {
 				$sigs->{$key}->{$uid}->{$1.$2} = $class;
+			} elsif ($class eq 'S' || $class eq 's') {
+				# intentionall left blank
 			} elsif ($before < $class) {
 				$sigs->{$key}->{$uid}->{$1.$2} = $class;
 			};
 		} else {
 			$sigs->{$key}->{$uid}->{$1.$2} .= $class;
 		};
-		$sigs->{$key}->{$uid}->{$2} = $sigs->{$key}->{$uid}->{$1.$2}
+		$sigs->{$key}->{$uid}->{$2} = $sigs->{$key}->{$uid}->{$1.$2};
 		next;
 	}
 	if ( m/^uat:/ ) {