diff --git a/lib/Crypt/OpenPGP/Armour.pm b/lib/Crypt/OpenPGP/Armour.pm index c5f369b..3736d02 100644 --- a/lib/Crypt/OpenPGP/Armour.pm +++ b/lib/Crypt/OpenPGP/Armour.pm @@ -12,7 +12,7 @@ sub armour { my $data = $param{Data} or return $class->error("No Data to armour"); my $headers = $param{Headers} || {}; - $headers->{Version} = Crypt::OpenPGP->version_string; + $headers->{Version} = Crypt::OpenPGP->version_string unless exists $headers->{Version}; my $head = join "\n", map { "$_: $headers->{$_}" } keys %$headers; my $object = $param{Object} || 'MESSAGE'; (my $sdata = encode_base64($data, '')) =~ s!(.{1,64})!$1\n!g;