Change 33163 by [EMAIL PROTECTED] on 2008/02/01 10:38:03
The penultimate deparse test needs a name, else things can warn.
Affected files ...
... //depot/perl/ext/B/t/deparse.t#35 edit
Differences ...
==== //depot/perl/ext/B/t/deparse.t#35 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#34~32909~ 2008-01-09 01:55:33.000000000 -0800
+++ perl/ext/B/t/deparse.t 2008-02-01 02:38:03.000000000 -0800
@@ -396,13 +396,14 @@
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; }
End of Patch.
