summaryrefslogtreecommitdiff
path: root/src/keytrans/pem2openpgp
diff options
context:
space:
mode:
authorDaniel Kahn Gillmor <dkg@fifthhorseman.net>2009-02-03 21:38:11 -0500
committerDaniel Kahn Gillmor <dkg@fifthhorseman.net>2009-02-03 21:38:11 -0500
commitedb55cada143fb8b42c14d2ec3809dc302ea5c83 (patch)
tree66974c0dd4bc3bcf2b2d0d856ff409a4381e1b50 /src/keytrans/pem2openpgp
parentc18ef1a9a630826e642f33a7077b382cc5a7a25c (diff)
*still* trying to get clean perl for pem2openpgp
Diffstat (limited to 'src/keytrans/pem2openpgp')
-rwxr-xr-xsrc/keytrans/pem2openpgp3
1 files changed, 2 insertions, 1 deletions
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};
}
}