SYN SYN

[p5sagit/p5-mst-13.2.git] / t / op / defins.t

diff --git a/t/op/defins.t b/t/op/defins.t
index 5dd614d..33c74ea 100755 (executable)
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -10,6 +10,8 @@ BEGIN {
     $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";
@@ -59,12 +61,13 @@ while ($where{$seen} = <FILE>)
  }
 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";
@@ -74,7 +77,7 @@ $seen = 0;
 $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";
@@ -83,7 +86,7 @@ rewinddir(DIR);
 $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";
@@ -91,7 +94,7 @@ 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";
@@ -100,7 +103,7 @@ $seen = 0;
 $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";
@@ -108,7 +111,7 @@ 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";