Change 32687 by [EMAIL PROTECTED] on 2007/12/21 11:34:30
Deparse each @array and friends.
Affected files ...
... //depot/perl/ext/B/B/Deparse.pm#188 edit
... //depot/perl/ext/B/t/deparse.t#31 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#188 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm#187~32076~ 2007-10-09 04:57:16.000000000 -0700
+++ perl/ext/B/B/Deparse.pm 2007-12-21 03:34:30.000000000 -0800
@@ -21,7 +21,7 @@
PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE
PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED),
($] < 5.009 ? 'PMf_SKIPWHITE' : 'RXf_SKIPWHITE');
-$VERSION = 0.83;
+$VERSION = 0.84;
use strict;
use vars qw/$AUTOLOAD/;
use warnings ();
@@ -1624,6 +1624,9 @@
sub pp_each { unop(@_, "each") }
sub pp_values { unop(@_, "values") }
sub pp_keys { unop(@_, "keys") }
+sub pp_aeach { unop(@_, "each") }
+sub pp_avalues { unop(@_, "values") }
+sub pp_akeys { unop(@_, "keys") }
sub pp_pop { unop(@_, "pop") }
sub pp_shift { unop(@_, "shift") }
==== //depot/perl/ext/B/t/deparse.t#31 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#30~31994~ 2007-09-28 11:04:55.000000000 -0700
+++ perl/ext/B/t/deparse.t 2007-12-21 03:34:30.000000000 -0800
@@ -27,7 +27,7 @@
require feature;
feature->import(':5.10');
}
-use Test::More tests => 54;
+use Test::More tests => 56;
use B::Deparse;
my $deparse = B::Deparse->new();
@@ -384,3 +384,13 @@
return $x++;
}
;
+####
+# SKIP ?$] < 5.011 && 'each @array not implemented on this Perl version'
+# 49 each @array;
+each @ARGV;
+each @$a;
+####
+# SKIP ?$] < 5.011 && 'each @array not implemented on this Perl version'
+# 50 keys @array; values @array
+keys @$a if keys @ARGV;
+values @ARGV if values @$a;
End of Patch.
