Change 20983 by [EMAIL PROTECTED] on 2003/09/01 14:14:49
From Craig Berry, following the example of the other podxxx.PL
in relying on basename($0, '.PL') to Do The Right Thing with
regard to the case of the extension, which could be either
.pl or .PL on VMS depending on version-specific features.
Affected files ...
... //depot/perl/pod/pod2usage.PL#10 edit
... //depot/perl/pod/podselect.PL#12 edit
Differences ...
==== //depot/perl/pod/pod2usage.PL#10 (text) ====
Index: perl/pod/pod2usage.PL
--- perl/pod/pod2usage.PL#9~20928~ Fri Aug 29 00:04:17 2003
+++ perl/pod/pod2usage.PL Mon Sep 1 07:14:49 2003
@@ -15,9 +15,8 @@
# This is so that make depend always knows where to find PL derivatives.
$origdir = cwd;
chdir(dirname($0));
-($file = basename($0)) =~ s/\.PL$//;
-$file =~ s/\.pl$// if ($^O eq 'os2' or $^O eq 'dos'); # "case-forgiving"
-$file =~ s/\.pl$/.com/ if ($^O eq 'VMS'); # "case-forgiving"
+$file = basename($0, '.PL');
+$file .= '.com' if $^O eq 'VMS';
open OUT,">$file" or die "Can't create $file: $!";
==== //depot/perl/pod/podselect.PL#12 (text) ====
Index: perl/pod/podselect.PL
--- perl/pod/podselect.PL#11~20928~ Fri Aug 29 00:04:17 2003
+++ perl/pod/podselect.PL Mon Sep 1 07:14:49 2003
@@ -15,9 +15,8 @@
# This is so that make depend always knows where to find PL derivatives.
$origdir = cwd;
chdir(dirname($0));
-($file = basename($0)) =~ s/\.PL$//;
-$file =~ s/\.pl$// if ($^O eq 'os2' or $^O eq 'dos'); # "case-forgiving"
-$file =~ s/\.pl$/.com/ if ($^O eq 'VMS'); # "case-forgiving"
+$file = basename($0, '.PL');
+$file .= '.com' if $^O eq 'VMS';
open OUT,">$file" or die "Can't create $file: $!";
End of Patch.
