Re: [MacPerl] perldoc on Mac

[Chris Nandor <pudge@pobox.com>]

At 14.19 -0400 1998.07.21, Kevin Reid wrote:
>How about including a little application in the MacPerl distribution
>that provides the functionality of the 'perldoc' command under Unix, so
>that people who see references to perldoc on c.l.p.* don't get confused
>because they can't find it anywhere?

#!perl
# macperldoc
# requires IC setup to use Shuck for pod URLs
use Mac::InternetConfig;
use strict;
my($what, $why, $where, $ic);

$what = MacPerl::Ask('What do YOU want?');
eval ("require $what");
if (!$@) {
  ($why = $what) =~ s|::|/|;
  $where = $INC{"$why.pm"};
} elsif (-e "$ENV{MACPERL}pod:$what.pod") {
    $where = "$ENV{MACPERL}pod:$what.pod";
}

if (!$where) {
   MacPerl::Answer("Cannot find $what.");
   exit;
}


$ic = ICStart();
ICGeneralFindConfigFile($ic);
ICLaunchURL($ic, 0, "pod:///$where");
ICStop($ic);
__END__

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch