Permalink
Browse files

Compatibility: Perl 5.16+ deprecates defined function on aggregates.

  • Loading branch information...
jeremywohl committed May 24, 2015
1 parent 57a20ee commit 1dc111308356d999f2a32aa50b6a0737ec5e6b09
Showing with 5 additions and 4 deletions.
  1. +1 −0 CHANGES
  2. +2 −2 glastree
  3. +2 −2 glastreeprune
View
@@ -1,4 +1,5 @@
1.05 stable:
2015.May.23 Perl 5.16+ compatibility (thanks DL)
2015.May.23 Some cleanup, nine years later!
1.04 stable:
View
@@ -8,7 +8,7 @@
#
#
require 5.002;
require 5.004;
use English;
use Getopt::Long;
@@ -39,7 +39,7 @@ sub main
if ($opt_version) { print STDERR $version; exit 1; }
if ($opt_help or not defined @ARGV or scalar @ARGV != 2)
if ($opt_help or not @ARGV or scalar @ARGV != 2)
{
print STDERR "usage: glastree [options] sourcedir backupdir\n\n";
print STDERR "options:\n";
View
@@ -8,7 +8,7 @@
#
#
require 5.002;
require 5.004;
use English;
use Getopt::Long;
@@ -38,7 +38,7 @@ sub main
GetOptions('days=i', 'print0', 'help');
if ($opt_help or not defined @ARGV or scalar @ARGV != 1)
if ($opt_help or not @ARGV or scalar @ARGV != 1)
{
print STDERR "usage: glastreeprune [options] backupdir\n\n";
print STDERR "options:\n";

0 comments on commit 1dc1113

Please sign in to comment.