diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-18 17:25:19 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-18 17:25:19 +0000 |
commit | 3ac6e0f94cbac2937b08ea7ee5d77e4a19c63780 (patch) | |
tree | c20f8ec162cc31c8bb1548b9b66243c16cb0bff6 /ext/B/t | |
parent | 615a2b9b5fd38672499052f0b6c19ccd271f6550 (diff) | |
download | perl-3ac6e0f94cbac2937b08ea7ee5d77e4a19c63780.tar.gz |
Fix deparsing of reversed sort and descending sorts,
due to the recent optimisations on this part of the optree.
p4raw-id: //depot/perl@23513
Diffstat (limited to 'ext/B/t')
-rw-r--r-- | ext/B/t/deparse.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index fed9cf0113..6c5bcb9f93 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -20,7 +20,7 @@ use warnings; use strict; use Config; -print "1..32\n"; +print "1..35\n"; use B::Deparse; my $deparse = B::Deparse->new() or print "not "; @@ -265,3 +265,15 @@ my $i; foreach our $i (1, 2) { my $z = 1; } +#### +# 29 +my @x; +print reverse sort(@x); +#### +# 30 +my @x; +print((sort {$b cmp $a} @x)); +#### +# 31 +my @x; +print((reverse sort {$b <=> $a} @x)); |