diff options
| author | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-15 00:49:57 +1300 |
|---|---|---|
| committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-15 00:49:57 +1300 |
| commit | e437f5f8921c036d46ec25a4ae541c5d68f19795 (patch) | |
| tree | 436d7b39a015346545ec93f82b61773f0f493736 /bin | |
| parent | Bump version (diff) | |
| download | Mail-Run-Crypt-e437f5f8921c036d46ec25a4ae541c5d68f19795.tar.gz (sig) Mail-Run-Crypt-e437f5f8921c036d46ec25a4ae541c5d68f19795.zip | |
Backport to v5.8.1, bump versionv0.05
It may be possible to go back further, but I'm tying myself in knots
trying. Might have another go later. Dropped Const::Fast dependency even
though it can be installed on 5.8.1; seems silly for one numeric
constant. Just told Perl::Critic to turn a blind eye.
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/runcrypt | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/bin/runcrypt b/bin/runcrypt index 4b7dfe5..f00c472 100755 --- a/bin/runcrypt +++ b/bin/runcrypt @@ -7,8 +7,7 @@ use warnings; use utf8; # Require this version of Perl -# 5.010 for defined-or operator -use 5.010; +use 5.008_001; # Import required modules use Carp; @@ -18,7 +17,7 @@ use Getopt::Long::Descriptive; use Mail::Run::Crypt; # Specify package version -our $VERSION = '0.04'; +our $VERSION = '0.05'; # Name ourselves our $SELF = 'runcrypt'; @@ -36,21 +35,21 @@ my ( $opt, $usage ) = describe_options( # Key ID defaults to environment RUNCRYPT_KEYID if set [ 'keyid|k=s', 'GnuPG key ID', - { default => $ENV{RUNCRYPT_KEYID} // undef }, + { default => $ENV{RUNCRYPT_KEYID} || undef }, ], # Key passphrase file defaults to environment RUNCRYPT_PASSFILE if set [ 'passfile|p=s', 'Path to GnuPG passphrase file', - { default => $ENV{RUNCRYPT_PASSFILE} // undef }, + { default => $ENV{RUNCRYPT_PASSFILE} || undef }, ], # MAILTO address defaults to environment MAILTO if set [ 'mailto|m=s', 'Mail destination address (MAILTO)', - { default => $ENV{RUNCRYPT_MAILTO} // $ENV{MAILTO} // undef }, + { default => $ENV{RUNCRYPT_MAILTO} || $ENV{MAILTO} || undef }, ], # Instance name (for email subjects) defaults to $SELF @@ -118,8 +117,6 @@ __END__ =pod -=encoding utf8 - =for stopwords runcrypt decrypt stdout stderr GPG GnuPG OpenPGP tradename licensable MERCHANTABILITY passfile @@ -255,7 +252,7 @@ L<https://sanctum.geek.nz/arabesque/series/gnu-linux-crypto/> =item * -Perl 5.10 or newer +Perl v5.8.1 or newer =item * |