Change 16470: Fix for some module install paths, MacPerl Bug #549611

Change 16470 by pudge@pudge-mobile on 2002/05/08 03:49:32

	Fix for some module install paths, MacPerl Bug #549611

Affected files ...

.... //depot/macperl/macos/macperl/Droplets/installme.plx#2 edit
.... //depot/macperl/macos/macperl/Droplets/untarzipme.plx#2 edit
.... //depot/maint-5.6/macperl/macos/macperl/Droplets/installme.plx#2 edit
.... //depot/maint-5.6/macperl/macos/macperl/Droplets/untarzipme.plx#2 edit

Differences ...

==== //depot/macperl/macos/macperl/Droplets/installme.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/installme.plx
--- macperl/macos/macperl/Droplets/installme.plx#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/macperl/Droplets/installme.plx	Tue May  7 20:49:32 2002
@@ -36,6 +36,7 @@
     my @files = $tar->list_files;
 
     foreach my $file (@files) {
+        $file .= "/" unless $file =~ /\//;
         my $dir = ':' . dirname(Archive::Tar::_munge_file($file));
         die "$dir already exists, will not overwrite\n"
             if -e $dir;

==== //depot/macperl/macos/macperl/Droplets/untarzipme.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/untarzipme.plx
--- macperl/macos/macperl/Droplets/untarzipme.plx#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/macperl/Droplets/untarzipme.plx	Tue May  7 20:49:32 2002
@@ -35,6 +35,7 @@
     my @files = $tar->list_files;
 
     foreach my $file (@files) {
+      $file .= "/" unless $file =~ /\//;
       my $dir = ':' . dirname(Archive::Tar::_munge_file($file));
       die "$dir already exists, will not overwrite\n"
           if -e $dir;

==== //depot/maint-5.6/macperl/macos/macperl/Droplets/installme.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/installme.plx
--- macperl/macos/macperl/Droplets/installme.plx#1~14079~	Fri Jan  4 13:09:40 2002
+++ macperl/macos/macperl/Droplets/installme.plx	Tue May  7 20:49:32 2002
@@ -36,6 +36,7 @@
     my @files = $tar->list_files;
 
     foreach my $file (@files) {
+        $file .= "/" unless $file =~ /\//;
         my $dir = ':' . dirname(Archive::Tar::_munge_file($file));
         die "$dir already exists, will not overwrite\n"
             if -e $dir;

==== //depot/maint-5.6/macperl/macos/macperl/Droplets/untarzipme.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/untarzipme.plx
--- macperl/macos/macperl/Droplets/untarzipme.plx#1~14079~	Fri Jan  4 13:09:40 2002
+++ macperl/macos/macperl/Droplets/untarzipme.plx	Tue May  7 20:49:32 2002
@@ -35,6 +35,7 @@
     my @files = $tar->list_files;
 
     foreach my $file (@files) {
+      $file .= "/" unless $file =~ /\//;
       my $dir = ':' . dirname(Archive::Tar::_munge_file($file));
       die "$dir already exists, will not overwrite\n"
           if -e $dir;
End of Patch.