This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move ExtUtils-Command to cpan/
[perl5.git] / cpan / ExtUtils-Command / lib / ExtUtils / Command.pm
index b5632ff..035d5ca 100644 (file)
@@ -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);
 @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.18';
 
 my $Is_VMS   = $^O eq 'VMS';
 my $Is_VMS_mode = $Is_VMS;
 
 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'} || '';
         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;
     }
         $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.
 
 
 Concatenates all files mentioned on command line to STDOUT.
 
-=cut 
+=cut
 
 sub cat ()
 {
 
 sub cat ()
 {
@@ -111,7 +111,7 @@ sub cat ()
 
 Sets modified time of destination to that of source.
 
 
 Sets modified time of destination to that of source.
 
-=cut 
+=cut
 
 sub eqtime
 {
 
 sub eqtime
 {
@@ -126,7 +126,7 @@ sub eqtime
 
 Removes files and directories - recursively (even if readonly)
 
 
 Removes files and directories - recursively (even if readonly)
 
-=cut 
+=cut
 
 sub rm_rf
 {
 
 sub rm_rf
 {
@@ -140,7 +140,7 @@ sub rm_rf
 
 Removes files (even if readonly)
 
 
 Removes files (even if readonly)
 
-=cut 
+=cut
 
 sub rm_f {
     expand_wildcards();
 
 sub rm_f {
     expand_wildcards();
@@ -173,9 +173,9 @@ sub _unlink {
 
     touch file ...
 
 
     touch file ...
 
-Makes files exist, with current timestamp 
+Makes files exist, with current timestamp
 
 
-=cut 
+=cut
 
 sub touch {
     my $t    = time;
 
 sub touch {
     my $t    = time;
@@ -197,7 +197,7 @@ destination is an existing directory.
 
 Returns true if all moves succeeded, false otherwise.
 
 
 Returns true if all moves succeeded, false otherwise.
 
-=cut 
+=cut
 
 sub mv {
     expand_wildcards();
 
 sub mv {
     expand_wildcards();
@@ -249,7 +249,7 @@ sub cp {
 
 Sets UNIX like permissions 'mode' on all the files.  e.g. 0666
 
 
 Sets UNIX like permissions 'mode' on all the files.  e.g. 0666
 
-=cut 
+=cut
 
 sub chmod {
     local @ARGV = @ARGV;
 
 sub chmod {
     local @ARGV = @ARGV;
@@ -280,7 +280,7 @@ sub chmod {
 
 Creates directories, including any parent directories.
 
 
 Creates directories, including any parent directories.
 
-=cut 
+=cut
 
 sub mkpath
 {
 
 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).
 
 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
 {
 
 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 };
        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 };
            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;
         }
             $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
 Randy Kobes C<r.kobes@uwinnipeg.ca>.
 
 =cut
-