#!perl -w
use File::Spec::Functions;
use Mac::Glue;
use Mac::InternetConfig;
$app = MacPerl::Ask('Enter the name of a glue:') or exit;
($app1 = $app) =~ tr/ /_/;
($app2 = $app) =~ tr/_/ /;
OUTER: for my $d (map { catfile($Mac::Glue::MACGLUEDIR, $_) } '', 'dialects', 'additions') {
for ($app, $app1, $app2) {
my $f = catfile($d, "$_.pod");
if (-e $f) {
$file = $f;
$file =~ tr|:|/|;
last OUTER;
}
}
}
if ($file) {
# system('perldoc', $file);
GetURL "pod:///$file";
} else {
MacPerl::Answer "'$app' not found.";
}