diff options
| author | George Greer <perl@greerga.m-l.org> | 2009-05-26 21:05:40 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-31 16:08:08 +0200 |
| commit | aa6341cbeb6a07b2e7e96082726fb53ca8ca994c (patch) | |
| tree | bf054f6b28fe648d29ff3d6780a33de7c197bb7d /t/op/sort.t | |
| parent | 73496db2b46a179fe398109ad934812dd7b63a82 (diff) | |
| download | perl-aa6341cbeb6a07b2e7e96082726fb53ca8ca994c.tar.gz | |
Add test case from RT#54758.
Diffstat (limited to 't/op/sort.t')
| -rwxr-xr-x | t/op/sort.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/sort.t b/t/op/sort.t index 737727ef74..7c2098ffb3 100755 --- a/t/op/sort.t +++ b/t/op/sort.t @@ -5,7 +5,7 @@ BEGIN { @INC = qw(. ../lib); require 'test.pl'; } use warnings; -plan( tests => 143 ); +plan( tests => 144 ); # these shouldn't hang { @@ -394,6 +394,10 @@ sub ok { main::cmp_ok($_[0],'eq',$_[1],$_[2]); ok "@a", "x c b a", "un-inplace sort with function of lexical"; @a = qw(b c a); @a = ((sort mysort @a),'x'); ok "@a", "c b a x", "un-inplace sort with function of lexical 2"; + + # RT#54758. Git 62b40d2474e7487e6909e1872b6bccdf812c6818 + my @m; push @m, 0 for 1 .. 1024; $#m; @m = sort @m; + main::pass("in-place sorting segfault"); } # Test optimisations of reversed sorts. As we now guarantee stability by |