Change 13130 by jhi@alpha on 2001/11/20 15:23:11
Subject: [PATCH] Portability fix for Pod::Html
From: Chris Nandor <[EMAIL PROTECTED]>
Date: Tue, 20 Nov 2001 00:01:05 -0500
Message-Id: <p05100307b81f92788846@[10.0.1.177]>
Affected files ...
.... //depot/perl/lib/Pod/Html.pm#49 edit
Differences ...
==== //depot/perl/lib/Pod/Html.pm#49 (text) ====
Index: perl/lib/Pod/Html.pm
--- perl/lib/Pod/Html.pm.~1~ Tue Nov 20 08:30:06 2001
+++ perl/lib/Pod/Html.pm Tue Nov 20 08:30:06 2001
@@ -10,6 +10,7 @@
use Carp;
use Config;
use Cwd;
+use File::Spec;
use File::Spec::Unix;
use Getopt::Long;
@@ -220,7 +221,7 @@
# 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 @@
$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.
End of Patch.
