diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-27 20:22:53 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-27 20:22:53 +1300 |
commit | adb108ba6cf891781b58e03df866280a14d47265 (patch) | |
tree | 7ed1cf4ff74acf4415a9ffdea733838be4b70677 /lib | |
parent | Bump version number (diff) | |
download | Mail-Run-Crypt-adb108ba6cf891781b58e03df866280a14d47265.tar.gz (sig) Mail-Run-Crypt-adb108ba6cf891781b58e03df866280a14d47265.zip |
Use warn/die properly, bump version numberv0.09
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Mail/Run/Crypt.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Mail/Run/Crypt.pm b/lib/Mail/Run/Crypt.pm index 1855e91..270866c 100644 --- a/lib/Mail/Run/Crypt.pm +++ b/lib/Mail/Run/Crypt.pm @@ -16,7 +16,7 @@ use Mail::GnuPG; use MIME::Entity; # Specify package verson -our $VERSION = '0.08'; +our $VERSION = '0.09'; # Default exit value our $DEFAULT_EXIT = 127; ## no critic (ProhibitMagicNumbers) @@ -30,7 +30,7 @@ sub new { # We must have a recipient defined $self->{mailto} - or croak 'mailto required'; + or croak 'MAILTO required'; # Default the instance name to the package name if it wasn't given; # runcrypt(1) will pass it in @@ -43,9 +43,9 @@ sub new { # If signing, we need a key ID and a passphrase if ( $self->{sign} ) { defined $self->{keyid} - or croak 'keyid required for signing'; + or croak 'Key ID required for signing'; defined $self->{passphrase} - or croak 'passphrase required for signing'; + or croak 'Passphrase required for signing'; } # Return objectified self @@ -59,7 +59,7 @@ sub run { # Run the command and wait for it to finish; keep its exit value for later my ( @out, @err ); eval { run3 \@command, undef, \@out, \@err } - or carp "command failed: $EVAL_ERROR"; + or warn "Command failed: $EVAL_ERROR\n"; $self->{exit} = $CHILD_ERROR >> 8; # If there was output, mail it @@ -138,7 +138,7 @@ Mail::Run::Crypt - Encrypt and mail output from command runs =head1 VERSION -Version 0.08 +Version 0.09 =head1 DESCRIPTION |