Change 33723 by [EMAIL PROTECTED] on 2008/04/22 14:47:47
Integrate:
[ 31857]
Add the missing assignment to op_last that change 31798 missed out.
With this, state $zok = ...; will deparse.
[just the Deparse change]
[ 33722]
Integrate:
[ 33656]
Eliminate cop_label from struct cop by storing a label as the first
entry in the hints hash. Most statements don't have labels, so this
will save memory. Not sure how much.
[just the Deparse change]
[ 33661]
Remove old option leftover in docs
Affected files ...
... //depot/maint-5.8/perl/ext/B/B/Deparse.pm#41 integrate
Differences ...
==== //depot/maint-5.8/perl/ext/B/B/Deparse.pm#41 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm#40~33215~ 2008-02-02 14:01:58.000000000 -0800
+++ perl/ext/B/B/Deparse.pm 2008-04-22 07:47:47.000000000 -0700
@@ -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.85;
+$VERSION = 0.87;
use strict;
use vars qw/$AUTOLOAD/;
use warnings ();
@@ -1456,6 +1456,7 @@
my %ignored_hints = (
'open<' => 1,
'open>' => 1,
+ ':' => 1,
'v_string' => 1,
);
@@ -2602,6 +2603,14 @@
return $head . join($cuddle, "", @elsifs) . $false;
}
+sub pp_once {
+ my ($self, $op, $cx) = @_;
+ my $cond = $op->first;
+ my $true = $cond->sibling;
+
+ return $self->deparse($true, $cx);
+}
+
sub loop_common {
my $self = shift;
my($op, $cx, $init) = @_;
@@ -4588,9 +4597,7 @@
Create an object to store the state of a deparsing operation and any
options. The options are the same as those that can be given on the
command line (see L</OPTIONS>); options that are separated by commas
-after B<-MO=Deparse> should be given as separate strings. Some
-options, like B<-u>, don't make sense for a single subroutine, so
-don't pass them.
+after B<-MO=Deparse> should be given as separate strings.
=head2 ambient_pragmas
End of Patch.
