still trying to get clean perl for pem2openpgp
authorDaniel Kahn Gillmor <dkg@fifthhorseman.net>
Wed, 4 Feb 2009 02:37:29 +0000 (21:37 -0500)
committerDaniel Kahn Gillmor <dkg@fifthhorseman.net>
Wed, 4 Feb 2009 02:37:29 +0000 (21:37 -0500)
src/keytrans/pem2openpgp

index 61ce00f0d1b2fe6cd1a145248a8db3ad29d575ac..8ef6257a6724072b869cddee1be64a781175cc98 100755 (executable)
@@ -364,7 +364,7 @@ if (! defined $ENV{PEM2OPENPGP_USAGE_FLAGS}) {
   $flags = $usage_flags->{authenticate};
 } else {
   my @ff = split(",", $ENV{PEM2OPENPGP_USAGE_FLAGS});
-  foreach $f (@ff) {
+  foreach my $f (@ff) {
     if (! defined $usage_flags->{$f})
       die "No such flag $f";
     $flags |= $usage_flags->{$f};