$SIG{__WARN__} = sub { $warns++; warn $_[0] };
print "1..14\n";
}
+
+$wanted_filename = $^O eq 'VMS' ? '0.' : '0';
print "not " if $warns;
print "ok 1\n";
}
print "not " unless $seen;
print "ok 5\n";
+close FILE;
opendir(DIR,'.');
$seen = 0;
while (my $name = readdir(DIR))
{
- $seen++ if $name eq '0';
+ $seen++ if $name eq $wanted_filename;
}
print "not " unless $seen;
print "ok 6\n";
$dummy = '';
while (($seen ? $dummy : $name) = readdir(DIR))
{
- $seen++ if $name eq '0';
+ $seen++ if $name eq $wanted_filename;
}
print "not " unless $seen;
print "ok 7\n";
$seen = 0;
while ($where{$seen} = readdir(DIR))
{
- $seen++ if $where{$seen} eq '0';
+ $seen++ if $where{$seen} eq $wanted_filename;
}
print "not " unless $seen;
print "ok 8\n";
$seen = 0;
while (my $name = glob('*'))
{
- $seen++ if $name eq '0';
+ $seen++ if $name eq $wanted_filename;
}
print "not " unless $seen;
print "ok 9\n";
$dummy = '';
while (($seen ? $dummy : $name) = glob('*'))
{
- $seen++ if $name eq '0';
+ $seen++ if $name eq $wanted_filename;
}
print "not " unless $seen;
print "ok 10\n";
$seen = 0;
while ($where{$seen} = glob('*'))
{
- $seen++ if $where{$seen} eq '0';
+ $seen++ if $where{$seen} eq $wanted_filename;
}
print "not " unless $seen;
print "ok 11\n";