In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/08fe1c446dfd7f69d072837b13864047af619591?hp=ca91568dcd0a2701871045ef931e8436835f347a>
- Log -----------------------------------------------------------------
commit 08fe1c446dfd7f69d072837b13864047af619591
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Apr 9 12:25:54 2010 +0200
when(scalar) without argument should be a syntax error [perl #74114]
M op.c
commit 2e76d32eb84e130b51bc1053ceb2e4d372424f82
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Apr 9 12:29:04 2010 +0200
Ignore Devel/DProf test files in the git repository
M lib/.gitignore
-----------------------------------------------------------------------
Summary of changes:
lib/.gitignore | 1 +
op.c | 5 +----
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/lib/.gitignore b/lib/.gitignore
index 564bd09..42bee2e 100644
--- a/lib/.gitignore
+++ b/lib/.gitignore
@@ -113,6 +113,7 @@
/DB_File.pm
/Data
/Devel/DProf.pm
+/Devel/DProf/
/Devel/InnerPackage.pm
/Devel/PPPort.pm
/Devel/Peek.pm
diff --git a/op.c b/op.c
index 9c94cc8..76eb16f 100644
--- a/op.c
+++ b/op.c
@@ -5282,14 +5282,11 @@ S_looks_like_bool(pTHX_ const OP *o)
&& looks_like_bool(cLOGOPo->op_first->op_sibling));
case OP_NULL:
+ case OP_SCALAR:
return (
o->op_flags & OPf_KIDS
&& looks_like_bool(cUNOPo->op_first));
- case OP_SCALAR:
- return looks_like_bool(cUNOPo->op_first);
-
-
case OP_ENTERSUB:
case OP_NOT: case OP_XOR:
--
Perl5 Master Repository
