diff options
| author | Daniel Kahn Gillmor <dkg@fifthhorseman.net> | 2009-02-03 21:38:11 -0500 |
|---|---|---|
| committer | Daniel Kahn Gillmor <dkg@fifthhorseman.net> | 2009-02-03 21:38:11 -0500 |
| commit | edb55cada143fb8b42c14d2ec3809dc302ea5c83 (patch) | |
| tree | 66974c0dd4bc3bcf2b2d0d856ff409a4381e1b50 /src/keytrans/pem2openpgp | |
| parent | c18ef1a9a630826e642f33a7077b382cc5a7a25c (diff) | |
*still* trying to get clean perl for pem2openpgp
Diffstat (limited to 'src/keytrans/pem2openpgp')
| -rwxr-xr-x | src/keytrans/pem2openpgp | 3 |
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}; } } |