Change 17661 by pudge@pudge-mobile on 2002/07/29 18:20:46
gluemac failed with some paths
Affected files ...
.... //depot/maint-5.6/macperl/macos/macperl/Droplets/gluemac.plx#2 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/macperl/Droplets/gluemac.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/gluemac.plx
--- macperl/macos/macperl/Droplets/gluemac.plx#1~14079~ Fri Jan 4 13:09:40 2002
+++ macperl/macos/macperl/Droplets/gluemac.plx Mon Jul 29 11:20:46 2002
@@ -18,6 +18,7 @@
$drop = readlink $drop while -l $drop;
# initialize
+ $drop =~ s/:$//; # is dir/package ?
($file, $dir) = fileparse($drop, '');
$fixed = Mac::AETE::Format::Glue::fixname($file);
$fixed = MacPerl::Ask('What is the glue name?', $fixed);
End of Patch.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
