$SIG{__WARN__} = sub { $warns++; warn $_[0] };
print "1..14\n";
}
+
+$wanted_filename = $^O eq 'VMS' ? '0.' : '0';
+$saved_filename = $^O eq 'MacOS' ? ':0' : './0';
print "not " if $warns;
print "ok 1\n";
-open(FILE,">./0");
+open(FILE,">$saved_filename");
print FILE "1\n";
print FILE "0";
close(FILE);
-open(FILE,"<./0");
+open(FILE,"<$saved_filename");
my $seen = 0;
my $dummy;
while (my $name = <FILE>)
}
print "not " unless $seen;
print "ok 5\n";
+close FILE;
-opendir(DIR,'.');
+opendir(DIR,($^O eq 'MacOS' ? ':' : '.'));
$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";
-unlink("./0");
+unlink($saved_filename);
my %hash = (0 => 1, 1 => 2);