From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 20 Oct 1999 23:49:47 +0000 (+0000)
Subject: add test for change#4417
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d4fa709c52c313242d8c99c393f00bdcd687712;p=p5sagit%2Fp5-mst-13.2.git

add test for change#4417

p4raw-link: @4417 on //depot/perl: 970c490586e0f01dd70401842b590223949989af

p4raw-id: //depot/perl@4418
---

diff --git a/t/op/sort.t b/t/op/sort.t
index f7bba3d..9abc410 100755
--- a/t/op/sort.t
+++ b/t/op/sort.t
@@ -163,7 +163,10 @@ print $@ ? "not ok 21\n# $@" : "ok 21\n";
 
 ## exercise sort builtins... ($a <=> $b already tested)
 @a = ( 5, 19, 1996, 255, 90 );
-@b = sort { $b <=> $a } @a;
+@b = sort {
+    my $dummy;		# force blockness
+    return $b <=> $a
+} @a;
 print ("@b" eq '1996 255 90 19 5' ? "ok 30\n" : "not ok 30\n");
 print "# x = '@b'\n";
 $x = join('', sort { $a cmp $b } @harry);