Re: [Module-build-general] Tests on perl 5.005

[Dave R. <au...@ur...>]

On Fri, 9 May 2003, Ken Williams wrote:

> What's it look like with this & 5.005 now?

Same test fails, runthrough.t #18.

Patch below sig.  I think the "values %hash" construct didn't make aliases
in 5.00503.


-dave

/*=======================
House Absolute Consulting
www.houseabsolute.com
=======================*/

--- Base.pm.~1.111.~	2003-05-09 14:07:10.000000000 -0500
+++ Base.pm	2003-05-09 14:10:06.000000000 -0500
@@ -1253,11 +1253,13 @@
   }

   if (length(my $destdir = $self->{properties}{destdir} || '')) {
-    $_ = File::Spec->catdir($destdir, $_) foreach values %map;
+    foreach (keys %map) {
+      $map{$_} = File::Spec->catdir($destdir, $map{$_});
+    }
   }

   $map{read} = '';  # To keep ExtUtils::Install quiet
-
+
   return \%map;
 }