summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/ExtUtils/Command.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Command.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/ExtUtils/Command.pm29
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
-