From fac76ed70b2818d69c47c57bd5b63a636a19a037 Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 27 Nov 1997 14:59:03 +0000
Subject: Output skipped test information in test suite: 	Subject:
 5.004_55: Making test harness platform_aware 	Date: Wed, 26 Nov 1997
 17:16:55 -0500 (EST) 	Date: Wed, 26 Nov 1997 17:16:55 -0500 (EST)

p4raw-id: //depot/perl@318
---
 t/lib/sdbm.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 't/lib/sdbm.t')

diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index c8ae09285b..ad25011d76 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -28,7 +28,7 @@ if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
 if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
-    print "ok 2\n";
+    print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -200,6 +200,8 @@ EOM
     main::ok(17, $@ eq "") ;
     main::ok(18, $ret eq "[[5]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", <dbhash.tmp*> ;
 
 }
-- 
cgit v1.2.1