diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 22:24:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 22:24:26 +0000 |
| commit | 6ee623d521a149edc6574c512fa951a192cd086a (patch) | |
| tree | 3d769839caf246d24053d0f49b4f48aed590e031 /t/lib | |
| parent | 20408e3ccf502b6ce4033d8203710405ec9ef8f6 (diff) | |
| download | perl-6ee623d521a149edc6574c512fa951a192cd086a.tar.gz | |
[win32] integrate mainline
p4raw-id: //depot/win32/perl@973
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/anydbm.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t index 3ab609cecc..0391b7b490 100755 --- a/t/lib/anydbm.t +++ b/t/lib/anydbm.t @@ -12,7 +12,7 @@ use Fcntl; print "1..12\n"; -unlink <Op_dbmx.*>; +unlink <Op_dbmx*>; umask(0); print (tie(%h,AnyDBM_File,'Op_dbmx', O_RDWR|O_CREAT, 0640) @@ -20,7 +20,7 @@ print (tie(%h,AnyDBM_File,'Op_dbmx', O_RDWR|O_CREAT, 0640) $Dfile = "Op_dbmx.pag"; if (! -e $Dfile) { - ($Dfile) = <Op_dbmx.*>; + ($Dfile) = <Op_dbmx*>; } if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') { print "ok 2 # Skipped: different file permission semantics\n"; @@ -33,7 +33,7 @@ else { while (($key,$value) = each(%h)) { $i++; } -print (!$i ? "ok 3\n" : "not ok 3\n"); +print (!$i ? "ok 3\n" : "not ok 3 # i=$i\n\n"); $h{'goner1'} = 'snork'; |