From: Chris Nandor <pudge@pobox.com>
Date: Tue, 20 Nov 2001 00:01:05 +0000 (-0500)
Subject: Portability fix for Pod::Html
X-Git-Tag: accepted/trunk/20130322.191538~29345
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=af75be11dcad49ca309fd6c92d14c81e301851f8;p=platform%2Fupstream%2Fperl.git

Portability fix for Pod::Html
Message-Id: <p05100307b81f92788846@[10.0.1.177]>

p4raw-id: //depot/perl@13130
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 515a482..9586f8e 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.