From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 26 Jul 1999 09:03:17 +0000 (+0000)
Subject: ~ isn't valid in VMS filenames
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f763251de9d15bd843d41adf21f5de7aa72b2ea;p=p5sagit%2Fp5-mst-13.2.git

~ isn't valid in VMS filenames

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

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 6077291..6fb8dca 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -190,8 +190,9 @@ This program is distributed under the Artistic License.
 
 =cut
 
-my $dircache = "pod2html.d~~";
-my $itemcache = "pod2html.i~~";
+my $cache_ext = $^O eq 'VMS' ? ".tmp" : ".x~~";
+my $dircache = "pod2htmd$cache_ext";
+my $itemcache = "pod2htmi$cache_ext";
 
 my @begin_stack = ();		# begin/end stack