From 524e76a5a6d4baff3f466f57614d738d66ec8e45 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 28 Nov 2015 12:29:49 +0000
Subject: [PATCH] test fix for RT #126472
---
t/array.t | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/t/array.t b/t/array.t
index 64f83b1..0d6eab4 100644
--- a/t/array.t
+++ b/t/array.t
@@ -32,7 +32,12 @@ ok(!exists $x[3], "EXISTS 3");
delete $x[0];
ok(!defined $y[0], 'DELETE');
@x = ();
-is($c, 0, 'EXTEND');
+if ($] > 5.023003) {
+ # EXTEND not called anymore on @x=(), see https://rt.perl.org/Ticket/Display.html?id=126472
+ is($c, 3, 'no EXTEND');
+} else {
+ is($c, 0, 'EXTEND');
+}
is(scalar @y, 0, 'CLEAR');
push @x, 'M', 'N', 'O', 'P';
is_deeply(\@y, [ qw(M N O P) ], 'PUSH');
--
2.1.2