This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The penultimate deparse test needs a name, else things can warn.
authorNicholas Clark <nick@ccl4.org>
Fri, 1 Feb 2008 10:38:03 +0000 (10:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 1 Feb 2008 10:38:03 +0000 (10:38 +0000)
p4raw-id: //depot/perl@33163

ext/B/t/deparse.t

index c2482b9..5553df8 100644 (file)
@@ -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; }