From 39984de3a8e9c16c0fee320a579cb465d0ce7314 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 22 Sep 2012 12:06:45 -0700 Subject: Stop array assignment from leaking on croak This made a to-do test in sort.t pass, but adventitiously, so I modi- fied it to fail again. --- t/op/sort.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 't/op/sort.t') diff --git a/t/op/sort.t b/t/op/sort.t index 6dedeeba55..0371f4f7a8 100644 --- a/t/op/sort.t +++ b/t/op/sort.t @@ -770,7 +770,8 @@ cmp_ok($answer,'eq','good','sort subr called from other package'); { local $TODO = "sort should make sure elements are not freed in the sort block"; - eval { @nomodify_x=(1..8); our @copy = sort { @nomodify_x = (0) } (@nomodify_x, 3); }; + eval { @nomodify_x=(1..8); + our @copy = sort { undef @nomodify_x; 1 } (@nomodify_x, 3); }; is($@, ""); } -- cgit v1.2.1