diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-22 00:54:41 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-21 21:53:00 +0000 |
| commit | 9a58b7615557cde0d483f8e5cbe3d893e1ec48c6 (patch) | |
| tree | 786e5384c87b6d7a87cef1cfac4456311ffc5001 /ext | |
| parent | 83716b1ec25b41f24c18a3bf323e7910d4cadf90 (diff) | |
| download | perl-9a58b7615557cde0d483f8e5cbe3d893e1ec48c6.tar.gz | |
next batch of bugfixes
Message-ID: <20020221235441.A17260@rafael>
p4raw-id: //depot/perl@14820
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index fcb62c98f9..c8f0eb94d3 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -19,7 +19,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber cstring CVf_METHOD CVf_LOCKED CVf_LVALUE PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_SKIPWHITE PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED); -$VERSION = 0.62; +$VERSION = 0.63; use strict; use vars qw/$AUTOLOAD/; use warnings (); @@ -106,6 +106,10 @@ use warnings (); # - our() declarations # - *all* the known bugs are now listed in the BUGS section # - comprehensive test mechanism (TEST -deparse) +# Changes between 0.62 and 0.63 (mostly by Rafael Garcia-Suarez) +# - bug-fixes +# - new switch -P +# - support for command-line switches (-l, -0, etc.) # Todo: # (See also BUGS section at the end of this file) @@ -2169,7 +2173,7 @@ sub mapop { $kid = $kid->sibling; for (; !null($kid); $kid = $kid->sibling) { $expr = $self->deparse($kid, 6); - push @exprs, $expr if $expr; + push @exprs, $expr if defined $expr; } return $self->maybe_parens_func($name, $code . join(", ", @exprs), $cx, 5); } @@ -3027,7 +3031,7 @@ sub re_uninterp_extended { | \#[^\n]* # (skip over comments) ) | [\$\@] - (?!\||\)|\(|$) + (?!\||\)|\(|$|\s) | \\[uUlLQE] ) |