diff options
Diffstat (limited to 'bin/runcrypt')
-rwxr-xr-x | bin/runcrypt | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/bin/runcrypt b/bin/runcrypt index 159bac5..43e7287 100755 --- a/bin/runcrypt +++ b/bin/runcrypt @@ -10,14 +10,13 @@ use utf8; use 5.008_001; # Import required modules -use Carp; use English '-no_match_vars'; use File::stat; use Getopt::Long::Descriptive; use Mail::Run::Crypt; # Specify package version -our $VERSION = '0.08'; +our $VERSION = '0.09'; # Name ourselves our $SELF = 'runcrypt'; @@ -69,14 +68,14 @@ my ( $opt, $usage ) = describe_options( # Print help if requested if ( $opt->help ) { print $usage->text - or carp 'failed stdout usage write'; + or warn "Failed stdout usage write\n"; exit 0; } # Bail if run without arguments if ( !@ARGV ) { printf {*STDERR} $usage->text - or carp 'failed stderr usage write'; + or warn "Failed stderr usage write\n"; exit 2; } @@ -97,10 +96,10 @@ if ( defined $opt->passfile ) { $opts{passphrase} = do { local $RS = undef; open my $fh, '<', $fn - or croak "passfile $fn open failed: $ERRNO"; + or die "Passphrase file $fn open failed: $ERRNO\n"; my $passphrase = <$fh>; close $fh - or carp "passfile $fn close failed: $ERRNO"; + or die "Passphrase file $fn close failed: $ERRNO\n"; chomp $passphrase; $passphrase; }; @@ -256,10 +255,6 @@ Perl v5.8.1 or newer =item * -L<Carp|Carp> - -=item * - L<English|English> =item * |