diff options
| author | Jan Dubois <jand@activestate.com> | 2010-12-15 22:41:47 -0800 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2010-12-16 11:24:24 -0800 |
| commit | 2dcac756b8b2c3b3d7d34174ba27b78fb1c7ba4a (patch) | |
| tree | 60651f69172e41b6e83652b51230581f422c51c8 /gv.c | |
| parent | ec0363d9bb05a67dad10a50c9b76b5aba365199a (diff) | |
| download | perl-2dcac756b8b2c3b3d7d34174ba27b78fb1c7ba4a.tar.gz | |
Silence some data truncation compiler warnings
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1914,7 +1914,7 @@ Perl_gv_handler(pTHX_ HV *stash, I32 id) do_update: /* If we're looking up a destructor to invoke, we must avoid * that Gv_AMupdate croaks, because we might be dying already */ - if (Gv_AMupdate(stash, id == DESTROY_amg) == -1) { + if (Gv_AMupdate(stash, cBOOL(id == DESTROY_amg)) == -1) { /* and if it didn't found a destructor, we fall back * to a simpler method that will only look for the * destructor instead of the whole magic */ |