From a0d0e21ea6ea90a22318550944fe6cb09ae10cda Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Mon, 17 Oct 1994 23:00:00 +0000
Subject: perl 5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;

Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge
backup tapes from that era seem to be readable anymore.  I guess 13 years
exceeds the shelf life for that backup technology :-(.
]
---
 t/op/delete.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 't/op/delete.t')

diff --git a/t/op/delete.t b/t/op/delete.t
index 86ed9b47ba..010cbf1003 100755
--- a/t/op/delete.t
+++ b/t/op/delete.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: delete.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:44 $
 
-print "1..6\n";
+print "1..7\n";
 
 $foo{1} = 'a';
 $foo{2} = 'b';
@@ -27,3 +27,11 @@ $foo{'bar'} = 'y';
 
 $foo = join('',values(foo));
 if ($foo eq 'xy' || $foo eq 'yx') {print "ok 6\n";} else {print "not ok 6\n";}
+
+$refhash{"top"}->{"foo"} = "FOO";
+$refhash{"top"}->{"bar"} = "BAR";
+
+delete $refhash{"top"}->{"bar"};
+@list = keys %{$refhash{"top"}};
+
+print "@list" eq "foo" ? "ok 7\n" : "not ok 7 @list\n";
-- 
cgit v1.2.1