12 open my $fh, ">", "0" or die "Can't open '0' for writing: $!\n";
14 This file is here for testing
16 while(readdir $dir){...}
17 ... while readdir $dir
25 ok(-f '0', "'0' file is here");
27 opendir my $dirhandle, '.'
28 or die "Failed test: unable to open directory: $!\n";
30 my @dir = readdir $dirhandle;
35 while(readdir $dirhandle){
38 ok( eq_array( \@dir, \@list ), 'while(readdir){push}' );
44 push @list, $_ while readdir $dirhandle;
45 ok( eq_array( \@dir, \@list ), 'push while readdir' );
52 push @list, $tmp while $tmp = readdir $dirhandle;
53 ok( eq_array( \@dir, \@list ), 'push $dir while $dir = readdir' );
59 while( my $dir = readdir $dirhandle){
62 ok( eq_array( \@dir, \@list ), 'while($dir=readdir){push}' );
72 $sub->($_) while readdir $dirhandle;
73 ok( eq_array( \@dir, \@list ), '$sub->($_) while readdir' );
79 while(readdir $dirhandle){
80 $_ =~ s/\.$// if defined $_ && $^O eq 'VMS'; # may have zero-length extension
81 if( defined $_ && $_ eq '0'){
86 ok( $works, 'while(readdir){} with file named "0"' );
93 $_ =~ s/\.$// if defined $_ && $^O eq 'VMS'; # may have zero-length extension
94 if( defined $_ && $_ eq '0' ){
98 $sub->($_) while readdir $dirhandle;
99 ok( $works, '$sub->($_) while readdir; with file named "0"' );
100 rewinddir $dirhandle;
105 while( my $dir = readdir $dirhandle ){
106 $dir =~ s/\.$// if defined $dir && $^O eq 'VMS'; # may have zero-length extension
107 if( defined $dir && $dir eq '0'){
112 ok( $works, 'while($dir=readdir){} with file named "0"');
113 rewinddir $dirhandle;
120 while( $tmp = readdir $dirhandle ){
121 $tmp =~ s/\.$// if defined $tmp && $^O eq 'VMS'; # may have zero-length extension
122 last if defined($tmp)&& !$tmp && ($ok=1)
124 ok( $ok, '$dir while $dir = readdir; with file named "0"' );
125 rewinddir $dirhandle;
130 END { 1 while unlink "0" }