Change 14398: Fix minor path problem

Change 14398 by pudge@pudge-mobile on 2002/01/23 20:03:38

	Fix minor path problem

Affected files ...

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

Differences ...

==== //depot/maint-5.6/macperl/macos/macperl/Droplets/tarzipme.plx#2 (text)
====
Index: perl/macos/macperl/Droplets/tarzipme.plx
--- perl/macos/macperl/Droplets/tarzipme.plx.~1~	Wed Jan 23 13:15:06
2002
+++ perl/macos/macperl/Droplets/tarzipme.plx	Wed Jan 23 13:15:06 2002
@@ -197,7 +197,7 @@
     find(sub {
         my $f = $File::Find::name;
         return if ! -f $f || $f =~ /:Icon\n$/;
-        (my $n = $f) =~ s/^$mdir//;
+        (my $n = $f) =~ s/^$mdir/:/;
         push @files, $n;
         $con{$n} = [guess($f), 0];
     }, $tdir);
End of Patch.