Change 14820 by jhi@alpha on 2002/02/21 21:53:00
Subject: [PATCH] next batch of bugfixes
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Thu, 21 Feb 2002 23:54:41 +0100
Message-ID: <20020221235441.A17260@rafael>
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#110 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#110 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Thu Feb 21 15:00:05 2002
+++ perl/ext/B/B/Deparse.pm Thu Feb 21 15:00:05 2002
@@ -19,7 +19,7 @@
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 @@
# - 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 @@
$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 @@
| \#[^\n]* # (skip over comments)
)
| [\$\@]
- (?!\||\)|\(|$)
+ (?!\||\)|\(|$|\s)
| \\[uUlLQE]
)
End of Patch.
