diff options
| author | Chris Nandor <pudge@pobox.com> | 2001-11-19 19:01:05 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-20 15:23:11 +0000 |
| commit | af75be11dcad49ca309fd6c92d14c81e301851f8 (patch) | |
| tree | 2599439e4b6c4b0231a97479a0fd66fb90b3c06a /lib/Pod/Html.pm | |
| parent | 820c63ad8280dd06f5dfe5b29e477790231a3db9 (diff) | |
| download | perl-af75be11dcad49ca309fd6c92d14c81e301851f8.tar.gz | |
Portability fix for Pod::Html
Message-Id: <p05100307b81f92788846@[10.0.1.177]>
p4raw-id: //depot/perl@13130
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 515a4820e3..9586f8e373 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -10,6 +10,7 @@ $VERSION = 1.04; use Carp; use Config; use Cwd; +use File::Spec; use File::Spec::Unix; use Getopt::Long; @@ -220,7 +221,7 @@ my $htmlfileurl = "" ; # The url that other files would use to # other files. my $podfile = ""; # read from stdin by default my @podpath = (); # list of directories containing library pods. -my $podroot = "."; # filesystem base directory from which all +my $podroot = File::Spec->curdir; # filesystem base directory from which all # relative paths in $podpath stem. my $css = ''; # Cascading style sheet my $recurse = 1; # recurse on subdirectories in $podpath. @@ -267,7 +268,7 @@ $htmldir = ""; # The directory to which the html pages $htmlfile = ""; # write to stdout by default $podfile = ""; # read from stdin by default @podpath = (); # list of directories containing library pods. -$podroot = "."; # filesystem base directory from which all +$podroot = File::Spec->curdir; # filesystem base directory from which all # relative paths in $podpath stem. $css = ''; # Cascading style sheet $recurse = 1; # recurse on subdirectories in $podpath. |