*still* trying to get clean perl for pem2openpgp

[monkeysphere.git] / src / keytrans / pem2openpgp

diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp
index 61ce00f0d1b2fe6cd1a145248a8db3ad29d575ac..1aae4fec805467a814c24a33c8320a863720858a 100755 (executable)
--- a/src/keytrans/pem2openpgp
+++ b/src/keytrans/pem2openpgp
@@ -364,9 +364,10 @@ if (! defined $ENV{PEM2OPENPGP_USAGE_FLAGS}) {
   $flags = $usage_flags->{authenticate};
 } else {
   my @ff = split(",", $ENV{PEM2OPENPGP_USAGE_FLAGS});
-  foreach $f (@ff) {
-    if (! defined $usage_flags->{$f})
+  foreach my $f (@ff) {
+    if (! defined $usage_flags->{$f}) {
       die "No such flag $f";
+    }
     $flags |= $usage_flags->{$f};
   }
 }