Remaining nit in the deparsing of reversed foreach loops

p4raw-id: //depot/perl@23516

1 files changed, 5 insertions, 1 deletions

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 9439ac9136..033bdd5e95 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..36\n";
+print "1..37\n";
 
 use B::Deparse;
 my $deparse = B::Deparse->new() or print "not ";
@@ -281,3 +281,7 @@ print((reverse sort {$b <=> $a} @x));
 # 32
 our @a;
 print $_ foreach (reverse @a);
+####
+# 32
+our @a;
+print $_ foreach (reverse 1, 2..5);