From: Chip Salzenberg <chip@perl.com>
Date: Tue, 4 Mar 1997 21:55:21 +0000 (+1200)
Subject: Quote pathname before using as pattern
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f9f50e6359fe350cbe70297d5277db15f34a222;p=p5sagit%2Fp5-mst-13.2.git

Quote pathname before using as pattern
---

diff --git a/pod/pod2html.PL b/pod/pod2html.PL
index 76a3479..8dafea5 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:://;