VMS syntax nit in new MakeMaker test.

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

diff --git a/t/op/args.t b/t/op/args.t
index 4ea224d..02d6352 100755 (executable)
--- a/t/op/args.t
+++ b/t/op/args.t
@@ -6,7 +6,7 @@ BEGIN {
 }
 
 require './test.pl';
-plan( tests => 20 );
+plan( tests => 23 );
 
 # test various operations on @_
 
@@ -86,3 +86,22 @@ for (1..3) {
     is(join('',bar('d')),'Dd');
     is(join('',baz('e')),'eE');
 } 
+
+# [perl #28032] delete $_[0] was freeing things too early
+
+{
+    my $flag = 0;
+    sub X::DESTROY { $flag = 1 }
+    sub f {
+       delete $_[0];
+       ok(!$flag, 'delete $_[0] : in f');
+    }
+    {
+       my $x = bless [], 'X';
+       f($x);
+       ok(!$flag, 'delete $_[0] : after f');
+    }
+    ok($flag, 'delete $_[0] : outside block');
+}
+
+