test case for change#4694

p4raw-link: @4694 on //depot/perl: 94f7643d7f26ed53393f1ab3452245da43de285e

p4raw-id: //depot/perl@4695

1 files changed, 11 insertions, 3 deletions

diff --git a/t/op/delete.t b/t/op/delete.t
index 6cc447506a..6452c35ded 100755
--- a/t/op/delete.t
+++ b/t/op/delete.t
@@ -1,8 +1,6 @@
 #!./perl
 
-# $RCSfile: delete.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:44 $
-
-print "1..16\n";
+print "1..17\n";
 
 $foo{1} = 'a';
 $foo{2} = 'b';
@@ -49,3 +47,13 @@ delete $refhash{"top"}->{"bar"};
 @list = keys %{$refhash{"top"}};
 
 print "@list" eq "foo" ? "ok 16\n" : "not ok 16 @list\n";
+
+{
+    my %a = ('bar', 33);
+    my($a) = \(values %a);
+    my $b = \$a{bar};
+    my $c = \delete $a{bar};
+
+    print "not " unless $a == $b && $b == $c;
+    print "ok 17\n";
+}