diff options
| author | Stepan Kasal <skasal@redhat.com> | 2009-06-02 16:20:27 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-06-02 16:33:43 +0200 |
| commit | 5988ef3d5134d80ef12900e39820199702634ca7 (patch) | |
| tree | d46b55a801e11cf6ed75484f8aae0cadb9566fd4 | |
| parent | ab45a0fa26b7a5ed9c49aa02ce422deee5e12a05 (diff) | |
| download | perl-5988ef3d5134d80ef12900e39820199702634ca7.tar.gz | |
parenthesize check for a flag
Hello,
gcc warned me about a suspicious combination of ! and &
Please consinder the following one-line patch.
Stepan Kasal
From 4b449da2aedf3b40b8f6dfa4c410d9becb33330a Mon Sep 17 00:00:00 2001
From: Stepan Kasal <skasal@redhat.com>
Date: Tue, 2 Jun 2009 16:06:10 +0200
Subject: [PATCH] dump.c: parenthesize flag check
Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1040,7 +1040,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) #ifdef USE_ITHREADS Perl_dump_indent(aTHX_ level, file, "PADIX = %" IVdf "\n", (IV)cPADOPo->op_padix); #else - if ( ! PL_op->op_flags & OPf_SPECIAL) { /* not lexical */ + if ( ! (PL_op->op_flags & OPf_SPECIAL)) { /* not lexical */ if (cSVOPo->op_sv) { SV * const tmpsv = newSV(0); ENTER; |