Change 17661: gluemac failed with some paths
[email protected] (Chris Nandor) Mon, 29 Jul 2002 15:55:37 -0400
| Newsgroups | perl.perl5.changes.mac |
|---|---|
| Message-ID | <p05111b11b96b4e232ea9@[10.0.1.177]> |
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/