diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Command.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/Command.pm | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/Command.pm b/Master/tlpkg/tlperl/lib/ExtUtils/Command.pm index b5632ff06d6..2a4d8cdc39d 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/Command.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/Command.pm @@ -12,7 +12,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); @ISA = qw(Exporter); @EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod dos2unix); -$VERSION = '1.16'; +$VERSION = '1.17'; my $Is_VMS = $^O eq 'VMS'; my $Is_VMS_mode = $Is_VMS; @@ -32,7 +32,7 @@ if( $Is_VMS ) { my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || ''; my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || ''; - $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i; + $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i; $vms_efs = $efs_charset =~ /^[ET1]/i; $vms_case = $efs_case =~ /^[ET1]/i; } @@ -97,7 +97,7 @@ sub expand_wildcards Concatenates all files mentioned on command line to STDOUT. -=cut +=cut sub cat () { @@ -111,7 +111,7 @@ sub cat () Sets modified time of destination to that of source. -=cut +=cut sub eqtime { @@ -126,7 +126,7 @@ sub eqtime Removes files and directories - recursively (even if readonly) -=cut +=cut sub rm_rf { @@ -140,7 +140,7 @@ sub rm_rf Removes files (even if readonly) -=cut +=cut sub rm_f { expand_wildcards(); @@ -173,9 +173,9 @@ sub _unlink { touch file ... -Makes files exist, with current timestamp +Makes files exist, with current timestamp -=cut +=cut sub touch { my $t = time; @@ -197,7 +197,7 @@ destination is an existing directory. Returns true if all moves succeeded, false otherwise. -=cut +=cut sub mv { expand_wildcards(); @@ -249,7 +249,7 @@ sub cp { Sets UNIX like permissions 'mode' on all the files. e.g. 0666 -=cut +=cut sub chmod { local @ARGV = @ARGV; @@ -280,7 +280,7 @@ sub chmod { Creates directories, including any parent directories. -=cut +=cut sub mkpath { @@ -295,7 +295,7 @@ sub mkpath Tests if a file exists. I<Exits> with 0 if it does, 1 if it does not (ie. shell's idea of true and false). -=cut +=cut sub test_f { @@ -337,9 +337,9 @@ sub dos2unix { my $orig = $_; my $temp = '.dos2unix_tmp'; open ORIG, $_ or do { warn "dos2unix can't open $_: $!"; return }; - open TEMP, ">$temp" or + open TEMP, ">$temp" or do { warn "dos2unix can't create .dos2unix_tmp: $!"; return }; - while (my $line = <ORIG>) { + while (my $line = <ORIG>) { $line =~ s/\015\012/\012/g; print TEMP $line; } @@ -366,4 +366,3 @@ ExtUtils-MakeMaker package and, as a separate CPAN package, by Randy Kobes C<r.kobes@uwinnipeg.ca>. =cut - |