From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 11 Nov 2009 16:31:54 +0000 (-0600)
Subject: readdir() reports file type on VMS, even if zero length.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df251d1f2a0ae38066fe06edb46aee66edf29006;p=p5sagit%2Fp5-mst-13.2.git

readdir() reports file type on VMS, even if zero length.
---

diff --git a/t/op/while_readdir.t b/t/op/while_readdir.t
index 851c6d7..3964158 100644
--- a/t/op/while_readdir.t
+++ b/t/op/while_readdir.t
@@ -77,6 +77,7 @@ rewinddir $dirhandle;
 {
     my $works = 0;
     while(readdir $dirhandle){
+        $_ =~ s/\.$// if defined $_ && $^O eq 'VMS'; # may have zero-length extension
         if( defined $_ && $_ eq '0'){
             $works = 1;
             last;
@@ -89,6 +90,7 @@ rewinddir $dirhandle;
 {
     my $works = 0;
     my $sub = sub{
+        $_ =~ s/\.$// if defined $_ && $^O eq 'VMS'; # may have zero-length extension
         if( defined $_ && $_ eq '0' ){
             $works = 1;
         }
@@ -101,6 +103,7 @@ rewinddir $dirhandle;
 {
     my $works = 0;
     while( my $dir = readdir $dirhandle ){
+        $dir =~ s/\.$// if defined $dir && $^O eq 'VMS'; # may have zero-length extension
         if( defined $dir && $dir eq '0'){
             $works = 1;
             last;
@@ -114,7 +117,10 @@ rewinddir $dirhandle;
     my $tmp;
     my $ok;
     my @list;
-    defined($tmp)&& !$tmp && ($ok=1) while $tmp = readdir $dirhandle;
+    while( $tmp = readdir $dirhandle ){
+        $tmp =~ s/\.$// if defined $tmp && $^O eq 'VMS'; # may have zero-length extension
+        last if defined($tmp)&& !$tmp && ($ok=1) 
+    }
     ok( $ok, '$dir while $dir = readdir; with file named "0"'  );
     rewinddir $dirhandle;
 }