aboutsummaryrefslogtreecommitdiff
path: root/lib/Mail/Run/Crypt.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Mail/Run/Crypt.pm')
-rw-r--r--lib/Mail/Run/Crypt.pm12
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