From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 6 Mar 2000 03:37:46 +0000 (+0000)
Subject: Remove trailing . from typeless files (Charles Lane)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11611c0f5c3f6e1aea7785197f65861fcb806b06;p=p5sagit%2Fp5-mst-13.2.git

Remove trailing . from typeless files (Charles Lane)

p4raw-id: //depot/vmsperl@5565
---

diff --git a/t/lib/filefind.t b/t/lib/filefind.t
index 89999fd..e9a2916 100755
--- a/t/lib/filefind.t
+++ b/t/lib/filefind.t
@@ -55,6 +55,7 @@ sub MkDir($$) {
 
 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 wanted {
 
 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 dn_wanted {
 
 sub d_wanted {
   print "# '$_' => 1\n";
+  s#\.$## if ($^O eq 'VMS' && $_ ne '.');
   my $i = rindex($_,'/');
   my $OK = exists($Expect{$_});
   if ( $OK ) {