From: George Greer <perl@greerga.m-l.org>
Date: Wed, 27 May 2009 01:05:40 +0000 (-0400)
Subject: Add test case from RT#54758.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa6341cbeb6a07b2e7e96082726fb53ca8ca994c;p=p5sagit%2Fp5-mst-13.2.git

Add test case from RT#54758.
---

diff --git a/t/op/sort.t b/t/op/sort.t
index 737727e..7c2098f 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