From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Wed, 4 Feb 2009 02:37:29 +0000 (-0500)
Subject: still trying to get clean perl for pem2openpgp
X-Git-Tag: monkeysphere_0.23~131
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=c18ef1a9a630826e642f33a7077b382cc5a7a25c;p=monkeysphere.git

still trying to get clean perl for pem2openpgp
---

diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp
index 61ce00f..8ef6257 100755
--- a/src/keytrans/pem2openpgp
+++ b/src/keytrans/pem2openpgp
@@ -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};