diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-05-19 16:55:06 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-05-23 15:07:27 +0100 |
commit | 2385f340d0887632a9e7685a0754f81343b0c2a8 (patch) | |
tree | 3b68b9705a76d7f72c0332ef04a74c5ddb6750fc /Porting/cmpVERSION.pl | |
parent | 3a06b4ede32aae6fcf73a24516301c7d959a3b82 (diff) | |
download | perl-2385f340d0887632a9e7685a0754f81343b0c2a8.tar.gz |
Trim the import list from File::Spec::Functions and don't use File::Find.
Most of the vestigial entries were caused by the refactoring to use git in
42e700c91cf83f56. Use File::Spec::Functions::devnull() in place of hard coded
values based on $^O.
Diffstat (limited to 'Porting/cmpVERSION.pl')
-rwxr-xr-x | Porting/cmpVERSION.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 81384f271d..782ab268e0 100755 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -w -# # cmpVERSION - compare the current Perl source tree and a given tag # for modules that have identical version numbers but different contents. # @@ -16,8 +15,7 @@ use strict; use ExtUtils::MakeMaker; use File::Compare; -use File::Find; -use File::Spec::Functions qw(rel2abs abs2rel catfile catdir curdir); +use File::Spec::Functions qw(catfile catdir devnull); use Getopt::Std; sub usage { @@ -36,7 +34,7 @@ die "$0: '$source_dir' does not look like a Perl directory\n" die "$0: '$source_dir' is a Perl directory but does not look like Git working directory\n" unless -d catdir($source_dir, ".git"); -my $null = $^O eq 'MSWin32' ? 'nul' : '/dev/null'; +my $null = devnull(); my $tag_exists = `git --no-pager tag -l $tag_to_compare 2>$null`; chomp $tag_exists; |