improve error message for private key not found

diff --git a/lib/App/GroupSecret/File.pm b/lib/App/GroupSecret/File.pm
index 956b6f9cc9d8d7b23d72cea79c22f1169df5c443..0cc42e81d1e0f952b37cfd37dee0f3b9fb70b547 100644 (file)
--- a/lib/App/GroupSecret/File.pm
+++ b/lib/App/GroupSecret/File.pm
@@ -290,6 +290,8 @@ sub decrypt_secret_passphrase {
     my $self        = shift;
     my $private_key = shift or _usage(q{$file->decrypt_secret_passphrase($private_key)});
 
     my $self        = shift;
     my $private_key = shift or _usage(q{$file->decrypt_secret_passphrase($private_key)});
 

+    die "Private key '$private_key' not found.\n" unless -e $private_key && !-d $private_key;
+

     my $info = read_openssh_key_fingerprint($private_key);
     my $fingerprint = $info->{fingerprint};
 
     my $info = read_openssh_key_fingerprint($private_key);
     my $fingerprint = $info->{fingerprint};
 


@@ -298,7 +300,7 @@ sub decrypt_secret_passphrase {
         return decrypt_rsa(\$key->{secret_passphrase}, $private_key);
     }
 
         return decrypt_rsa(\$key->{secret_passphrase}, $private_key);
     }
 

-    die "The private key ($private_key) is not able to decrypt the keyfile.\n";
+    die "Private key '$private_key' not able to decrypt the keyfile.\n";

 }
 
 =method encrypt_secret
 }
 
 =method encrypt_secret