[PATCH 5.5.670] t/lib/filefind.t fix for VMS

[Charles Lane]

Remove the trailing "." that VMS file parsing appends to filenames.
--- t/lib/filefind.t-orig       Fri Mar  3 16:20:53 2000
+++ t/lib/filefind.t    Fri Mar  3 16:32:46 2000
@@ -55,6 +55,7 @@
 
 sub wanted {
   print "# '$_' => 1\n";
+  s#\.$## if ($^O eq 'VMS' && $_ ne '.');
   Check( $Expect{$_} );
   delete $Expect{$_};
   $File::Find::prune=1 if  $_ eq 'faba';
@@ -62,6 +63,7 @@
 
 sub dn_wanted {
   my $n = $File::Find::name;
+  $n =~ s#\.$## if ($^O eq 'VMS' && $n ne '.');
   print "# '$n' => 1\n";
   my $i = rindex($n,'/');
   my $OK = exists($Expect{$n});
@@ -74,6 +76,7 @@
 
 sub d_wanted {
   print "# '$_' => 1\n";
+  s#\.$## if ($^O eq 'VMS' && $_ ne '.');
   my $i = rindex($_,'/');
   my $OK = exists($Expect{$_});
   if ( $OK ) {
--
 Drexel University       \V                     --Chuck Lane
----------------->--------*------------<[EMAIL PROTECTED]
     (215) 895-1545      / \  Particle Physics  [EMAIL PROTECTED]
FAX: (215) 895-5934        /~~~~~~~~~~~         [EMAIL PROTECTED]