diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-06-15 23:49:27 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-06-16 09:00:51 +0000 |
| commit | d5d4ec93a4679c6ba299b53290a0903a25094cec (patch) | |
| tree | f614812a6656569c4e54761ad97d67769cdfad04 /lib/ExtUtils/Command.pm | |
| parent | 90fcb90269601d48315e5be1fd5ddd0619d05f27 (diff) | |
| download | perl-d5d4ec93a4679c6ba299b53290a0903a25094cec.tar.gz | |
Subject: [PATCH] Sync MakeMaker 6.01 -> 6.02
Date: Sun, 16 Jun 2002 03:49:27 -0400
Message-Id: <20020616074927.GD7403@ool-18b93024.dyn.optonline.net>
Subject: [PATCH] Test::Harness 2.24 -> 2.25
From: Michael G Schwern <schwern@pobox.com>
Date: Sun, 16 Jun 2002 03:58:40 -0400
Message-Id: <20020616075840.GE7403@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@17256
Diffstat (limited to 'lib/ExtUtils/Command.pm')
| -rw-r--r-- | lib/ExtUtils/Command.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/ExtUtils/Command.pm b/lib/ExtUtils/Command.pm index 22eece7fa6..6593ab3a35 100644 --- a/lib/ExtUtils/Command.pm +++ b/lib/ExtUtils/Command.pm @@ -106,9 +106,9 @@ sub rm_f expand_wildcards(); foreach (@ARGV) { - next unless -f $_; + next unless -f $_; next if unlink($_); - chmod(0777,$_); + chmod(0777,$_); next if unlink($_); carp "Cannot delete $_:$!"; } @@ -147,7 +147,7 @@ sub mv croak("Too many arguments") if (@ARGV > 1 && ! -d $dst); while (@ARGV) { - my $src = shift(@ARGV); + my $src = shift(@ARGV); move($src,$dst); } } @@ -157,7 +157,7 @@ sub mv Copies source to destination. Multiple sources are allowed if destination is an existing directory. -=cut +=cut sub cp { @@ -166,7 +166,7 @@ sub cp croak("Too many arguments") if (@ARGV > 1 && ! -d $dst); while (@ARGV) { - my $src = shift(@ARGV); + my $src = shift(@ARGV); copy($src,$dst); } } |