diff options
| author | Michael G Schwern <schwern@pobox.com> | 2005-07-11 16:24:56 -0700 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-12 16:30:16 +0000 |
| commit | f9b810e81bd9e67dc80d00836f36e8d03c9021f2 (patch) | |
| tree | faa694968eb9f488e2444ed995020c0ff54cae8a /lib/CPAN.pm | |
| parent | 58df5ac7fb4236f284c61d77d9e06ac3d5c83178 (diff) | |
| download | perl-f9b810e81bd9e67dc80d00836f36e8d03c9021f2.tar.gz | |
[perl #24119] CPAN.pm error in Win32: uses rename() not File::Copy::move
From: "Michael G Schwern via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-24119-116937.12.0211560107236@perl.org>
p4raw-id: //depot/perl@25125
Diffstat (limited to 'lib/CPAN.pm')
| -rw-r--r-- | lib/CPAN.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index fd184b2b60..6a2075b019 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -3948,9 +3948,9 @@ sub get { -d $packagedir and $CPAN::Frontend->myprint("Removing previously used ". "$packagedir\n"); File::Path::rmtree($packagedir); - rename($distdir,$packagedir) or - Carp::confess("Couldn't rename $distdir to $packagedir: $!"); - $self->debug(sprintf("renamed distdir[%s] to packagedir[%s] -e[%s]-d[%s]", + File::Copy::move($distdir,$packagedir) or + Carp::confess("Couldn't move $distdir to $packagedir: $!"); + $self->debug(sprintf("moved distdir[%s] to packagedir[%s] -e[%s]-d[%s]", $distdir, $packagedir, -e $packagedir, @@ -3971,7 +3971,7 @@ sub get { my($f); for $f (@readdir) { # is already without "." and ".." my $to = File::Spec->catdir($packagedir,$f); - rename($f,$to) or Carp::confess("Couldn't rename $f to $to: $!"); + File::Copy::move($f,$to) or Carp::confess("Couldn't move $f to $to: $!"); } } if ($CPAN::Signal){ |