X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExtUtils%2FCommand.pm;h=4b998b21f958e916992f48092cb89d0cd0fcbe43;hb=f6d6199cd6711f5e8a8e6c1a57445fa6f848c822;hp=aec4013d022ab5af779ad8bf05fab06a80fde4cb;hpb=09312895ded7493c783096b14829d10798fe9f44;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/ExtUtils/Command.pm b/lib/ExtUtils/Command.pm index aec4013..4b998b2 100644 --- a/lib/ExtUtils/Command.pm +++ b/lib/ExtUtils/Command.pm @@ -1,6 +1,6 @@ package ExtUtils::Command; -use 5.005_64; +use 5.006; use strict; # use AutoLoader; use Carp; @@ -12,7 +12,7 @@ require Exporter; our(@ISA, @EXPORT, $VERSION); @ISA = qw(Exporter); @EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f); -$VERSION = '1.01'; +$VERSION = '1.03_01'; =head1 NAME @@ -33,8 +33,7 @@ ExtUtils::Command - utilities to replace common UNIX commands in Makefiles etc. =head1 DESCRIPTION -The module is used in the Win32 port to replace common UNIX commands. -Most commands are wrappers on generic modules File::Path and File::Basename. +The module is used to replace common UNIX commands. =over 4 @@ -71,7 +70,7 @@ sub eqtime utime((stat($src))[8,9],$dst); } -=item rm_f files.... +=item rm_rf files.... Removes directories - recursively (even if readonly) @@ -108,8 +107,8 @@ Makes files exist, with current timestamp sub touch { - expand_wildcards(); my $t = time; + expand_wildcards(); while (@ARGV) { my $file = shift(@ARGV);