17 lines
383 B
Perl
17 lines
383 B
Perl
#!/usr/bin/perl -w
|
|
|
|
# This script will open up the ActivePerl User Guide in your
|
|
# web browser.
|
|
|
|
use strict;
|
|
use Config qw(%Config);
|
|
|
|
my $htmldir = $Config{installhtmldir} || "$Config{prefix}/html";
|
|
my $index = "$htmldir/index.html";
|
|
|
|
die "No HTML docs installed at $htmldir\n"
|
|
unless -f $index;
|
|
|
|
require ActiveState::Browser;
|
|
ActiveState::Browser::open($index);
|