diff options
author | David Mitchell <davem@iabyn.com> | 2009-01-03 13:38:16 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-01-03 13:38:16 +0000 |
commit | 0c429c7857dc17d863b0f599b99cd7e16e6d865f (patch) | |
tree | b477f94e58680adc5f5c1cd1633457c8446adc0f /Porting/cmpVERSION.pl | |
parent | aea323039bd02667df3bd60d27358d65842cd171 (diff) | |
download | perl-0c429c7857dc17d863b0f599b99cd7e16e6d865f.tar.gz |
Add some basic decriptions and/or usage info to some Porting/ scripts
Diffstat (limited to 'Porting/cmpVERSION.pl')
-rw-r--r-- | Porting/cmpVERSION.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 2855acf8cd..8c23649daa 100644 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -14,6 +14,8 @@ use File::Compare; use File::Find; use File::Spec::Functions qw(rel2abs abs2rel catfile catdir curdir); +@ARGV == 2 or die "usage: $0 source_dir1 source_dir2\n"; + for (@ARGV[0, 1]) { die "$0: '$_' does not look like Perl directory\n" unless -f catfile($_, "perl.h") && -d catdir($_, "Porting"); |