Mailing List Archive

Author: randyk
Date: Sat Oct 21 19:18:51 2006
New Revision: 466614

URL: http://svn.apache.org/viewvc?view=rev&rev=466614
Log:
Don't rename the downloaded mod_perl.so if it's the same name as mod_perl.so.

Modified:
perl/modperl/docs/trunk/src/docs/1.0/os/win32/mpinstall
perl/modperl/docs/trunk/src/docs/2.0/os/win32/mpinstall

Modified: perl/modperl/docs/trunk/src/docs/1.0/os/win32/mpinstall
URL: http://svn.apache.org/viewvc/perl/modperl/docs/trunk/src/docs/1.0/os/win32/mpinstall?view=diff&rev=466614&r1=466613&r2=466614
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/os/win32/mpinstall (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/os/win32/mpinstall Sat Oct 21 19:18:51 2006
@@ -217,7 +217,9 @@
unless (verifyMD5($cksum, $tgzfile));
die qq{CHECKSUM check for "$so_fake" failed.\n}
unless (verifyMD5($cksum, $so_fake));
-rename($so_fake, $so) or die "Rename of $so_fake to $so failed: $!";
+unless ($so_fake eq $so) {
+ rename($so_fake, $so) or die "Rename of $so_fake to $so failed: $!";
+}

# edit the ppd file to reflect a local installation
my $old = $ppdfile . '.old';

Modified: perl/modperl/docs/trunk/src/docs/2.0/os/win32/mpinstall
URL: http://svn.apache.org/viewvc/perl/modperl/docs/trunk/src/docs/2.0/os/win32/mpinstall?view=diff&rev=466614&r1=466613&r2=466614
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/os/win32/mpinstall (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/os/win32/mpinstall Sat Oct 21 19:18:51 2006
@@ -217,7 +217,9 @@
unless (verifyMD5($cksum, $tgzfile));
die qq{CHECKSUM check for "$so_fake" failed.\n}
unless (verifyMD5($cksum, $so_fake));
-rename($so_fake, $so) or die "Rename of $so_fake to $so failed: $!";
+unless ($so_fake eq $so) {
+ rename($so_fake, $so) or die "Rename of $so_fake to $so failed: $!";
+}

# edit the ppd file to reflect a local installation
my $old = $ppdfile . '.old';



---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org