PERFORCE change 13119 for review

Change 13119 by pudge@pudge-mobile on 2001/11/20 03:08:27

	Portability fix for Pod::Html.

Affected files ...

.... //depot/maint-5.6/macperl/lib/Pod/Html.pm#2 edit

Differences ...

==== //depot/maint-5.6/macperl/lib/Pod/Html.pm#2 (text) ====
Index: perl/lib/Pod/Html.pm
--- perl/lib/Pod/Html.pm.~1~	Mon Nov 19 20:15:05 2001
+++ perl/lib/Pod/Html.pm	Mon Nov 19 20:15:05 2001
@@ -10,6 +10,7 @@
 use Carp;
 use Config;
 use Cwd;
+use File::Spec;
 use File::Spec::Unix;
 use Getopt::Long;
 use Pod::Functions;
@@ -213,7 +214,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.
@@ -260,7 +261,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.