diff -ru perl-5.8.1-RC3.orig/ext/Encode/bin/enc2xs perl-5.8.1-RC3/ext/Encode/bin/enc2xs
--- perl-5.8.1-RC3.orig/ext/Encode/bin/enc2xs	2003-07-10 02:10:42.000000000 -0400
+++ perl-5.8.1-RC3/ext/Encode/bin/enc2xs	2003-08-01 09:40:47.335001000 -0400
@@ -159,7 +159,7 @@
 
 my ($doC,$doEnc,$doUcm,$doPet);
 
-if ($cname =~ /\.(c|xs)$/)
+if ($cname =~ /\.(c|xs)$/i) # VMS may have upcased filenames with DECC$ARGV_PARSE_STYLE defined
  {
   $doC = 1;
   $dname =~ s/(\.[^\.]*)?$/.exh/;
diff -ru perl-5.8.1-RC3.orig/pod/pod2usage.PL perl-5.8.1-RC3/pod/pod2usage.PL
--- perl-5.8.1-RC3.orig/pod/pod2usage.PL	2003-07-10 02:12:48.000000000 -0400
+++ perl-5.8.1-RC3/pod/pod2usage.PL	2003-08-01 09:42:56.421029000 -0400
@@ -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)) =~ s/\.PL$//i;
+$file .= '.COM' if ($^O eq 'VMS');
 
 open OUT,">$file" or die "Can't create $file: $!";
 
diff -ru perl-5.8.1-RC3.orig/pod/podselect.PL perl-5.8.1-RC3/pod/podselect.PL
--- perl-5.8.1-RC3.orig/pod/podselect.PL	2003-07-10 02:12:48.000000000 -0400
+++ perl-5.8.1-RC3/pod/podselect.PL	2003-08-01 09:42:04.578003000 -0400
@@ -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)) =~ s/\.PL$//i;
+$file .= '.COM' if ($^O eq 'VMS');
 
 open OUT,">$file" or die "Can't create $file: $!";