From: Jan Dubois <jand@activestate.com>
Date: Tue, 27 Jul 1999 22:14:12 +0000 (+0200)
Subject: Pod::Html tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=04f720db660f11635846523a2f8eb8c7ddebb221;p=p5sagit%2Fp5-mst-13.2.git

Pod::Html tweak
To: perl5-porters@perl.org
Subject: [PATCH 5.005_58] pod2html: Missing chunk for VMS filenames
Message-ID: <37a50af0.46171380@smtp1.ibm.net>

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

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 4a8d066..5238a1a 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -244,8 +244,8 @@ my %items = ();			# associative array used to find the location
 my $Is83;                       # is dos with short filenames (8.3)
 
 sub init_globals {
-$dircache = "pod2html.d~~";
-$itemcache = "pod2html.i~~";
+$dircache = "pod2htmd$cache_ext";
+$itemcache = "pod2htmi$cache_ext";
 
 @begin_stack = ();		# begin/end stack