Quote pathname before using as pattern

1 files changed, 7 insertions, 8 deletions

diff --git a/pod/pod2html.PL b/pod/pod2html.PL
index 76a3479855..8dafea5d09 100644
--- a/pod/pod2html.PL
+++ b/pod/pod2html.PL
@@ -78,17 +78,16 @@ $type = '<A HREF="';
 
 ################################################################################
 # location of all podfiles unless on command line
-# $installprivlib="HD:usr:local:lib:perl5"; # uncomment and reset for Mac
-# $installprivlib="C:\usr\local\lib\perl5"; # uncomment and reset for DOS (I hope)
-
-# $installprivlib="/usr/local/lib/perl5"; # Unix
+# $installprivlib='HD:usr:local:lib:perl5'; # uncomment for Mac
+# $installprivlib='C:\usr\local\lib\perl5'; # uncomment for DOS (I hope)
+# $installprivlib='/usr/local/lib/perl5'; # Unix
 $installprivlib="./"; # Standard perl pod directory for intallation
 
 ################################################################################
 # Where to write out the html files
-# $installhtmldir="HD:usr:local:lib:perl5:html"; # uncomment and reset for Mac
-# $installhtmldir="C:\usr\local\lib\perl5\html"; # uncomment and reset for DOS (I hope)
-$installhtmldir = "./";  
+# $installhtmldir='HD:usr:local:lib:perl5:html'; # uncomment for Mac
+# $installhtmldir='C:\usr\local\lib\perl5\html'; # uncomment for DOS (I hope)
+$installhtmldir = './'; 
 
 # test for validness
 
@@ -154,7 +153,7 @@ loop1:
     foreach $podfh ( @Pods ) {
 	$didindex = 0;
 	$refname = $podfh;
-	$refname =~ s/$installprivlib${sep}?//;
+	$refname =~ s/\Q$installprivlib${sep}\E?//;
 	$refname =~ s/${sep}/::/g;
 	$refname =~ s/\.p(m|od)$//;
 	$refname =~ s/^pod:://;