~ isn't valid in VMS filenames
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 26 Jul 1999 09:03:17 +0000 (09:03 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 26 Jul 1999 09:03:17 +0000 (09:03 +0000)
p4raw-id: //depot/perl@3763

lib/Pod/Html.pm

index 607729122525b934683a7185df27857419de182b..6fb8dcab282b0c69623c0fc17b98c23c8f5e6c28 100644 (file)
@@ -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