From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Wed, 6 Jul 2005 11:48:07 +0000 (+0000)
Subject: And minor fixes
X-Git-Url: https://git.sthu.org/?p=pgp-tools.git;a=commitdiff_plain;h=fbc6ef7e900e86687cc5a1526b09700773f24555

And minor fixes

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@118 b513b33f-fedd-0310-b452-c3deb5f4c849
---

diff --git a/gpgsigs/gpgsigs b/gpgsigs/gpgsigs
index c49ef00..483e4c5 100755
--- a/gpgsigs/gpgsigs
+++ b/gpgsigs/gpgsigs
@@ -202,13 +202,15 @@ while (<SIGS>) {
 		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:/ ) {