[PATCH] h2xs.t fix for VMS

[Craig A. Berry]

This accounts for the fact that files with no extension appear with a 
trailing dot and all filenames are currently reported in lower case (though 
they may be mixed case in the future).

--- lib/h2xs.t;-0       Wed Mar 20 15:10:54 2002
+++ lib/h2xs.t  Fri Mar 22 15:43:06 2002
@@ -176,6 +176,10 @@
       $_ = ':' . join(':',split(/\//,$_));
       $_ =~ s/$name:t:1.t/$name:t\/1.t/; # is this an h2xs bug?
     }
+    if ($^O eq 'VMS') {
+      $_ .= '.' unless $_ =~ m/\./;
+      $_ = lc($_) unless exists $got{$_};
+    }
     ok (-e $_, "check for $_") and delete $got{$_};
   }
   my @extra = keys %got;
[end of patch]