From edb55cada143fb8b42c14d2ec3809dc302ea5c83 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Tue, 3 Feb 2009 21:38:11 -0500
Subject: *still* trying to get clean perl for pem2openpgp

---
 src/keytrans/pem2openpgp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp
index 8ef6257..1aae4fe 100755
--- a/src/keytrans/pem2openpgp
+++ b/src/keytrans/pem2openpgp
@@ -365,8 +365,9 @@ if (! defined $ENV{PEM2OPENPGP_USAGE_FLAGS}) {
 } else {
   my @ff = split(",", $ENV{PEM2OPENPGP_USAGE_FLAGS});
   foreach my $f (@ff) {
-    if (! defined $usage_flags->{$f})
+    if (! defined $usage_flags->{$f}) {
       die "No such flag $f";
+    }
     $flags |= $usage_flags->{$f};
   }
 }
-- 
cgit v1.2.3