From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 1 Feb 2008 10:38:03 +0000 (+0000)
Subject: The penultimate deparse test needs a name, else things can warn.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43b09ad7a33220d66fb5299f7edd948446f7afa7;p=p5sagit%2Fp5-mst-13.2.git

The penultimate deparse test needs a name, else things can warn.

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

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index c2482b9..5553df8 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -396,13 +396,14 @@ each @$a;
 keys @$a if keys @ARGV;
 values @ARGV if values @$a;
 ####
+# 51 Anonymous arrays and hashes, and references to them
 my $a = {};
 my $b = \{};
 my $c = [];
 my $d = \[];
 ####
 # SKIP ?$] < 5.010 && "smartmatch and given/when not implemented on this Perl version"
-# 51 implicit smartmatch in given/when
+# 52 implicit smartmatch in given/when
 given ('foo') {
     when ('bar') { continue; }
     when ($_ ~~ 'quux') { continue; }