summaryrefslogtreecommitdiff
path: root/t/op
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2004-05-03 17:44:44 +0000
committerDave Mitchell <davem@fdisolutions.com>2004-05-03 17:44:44 +0000
commite3a8873fee48db53bdab7f38729038b2eab97f0b (patch)
treeedeb37260c0f914b7f8b81a2c6937904700b9723 /t/op
parentcb3d361a49c18f4222090babc337a837a7616b69 (diff)
downloadperl-e3a8873fee48db53bdab7f38729038b2eab97f0b.tar.gz
[perl #28938] split could leave an array without &PL_sv_undef
in the unused elements p4raw-id: //depot/perl@22774
Diffstat (limited to 't/op')
-rwxr-xr-xt/op/split.t15
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/split.t b/t/op/split.t
index 957da24950..31a2f51bf9 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -6,7 +6,7 @@ BEGIN {
require './test.pl';
}
-plan tests => 54;
+plan tests => 55;
$FS = ':';
@@ -289,3 +289,16 @@ ok(@ary == 3 &&
$n = @a = split /,/,$p;
is ($n, 0, '#21765 - pmreplroot hack used to return undef for 0 iters');
}
+
+{
+ # [perl #28938]
+ # assigning off the end of the array after a split could leave garbage
+ # in the inner elements
+
+ my $x;
+ @a = split /,/, ',,,,,';
+ $a[3]=1;
+ $x = \$a[2];
+ is (ref $x, 'SCALAR', '#28938 - garbage after extend');
+}
+