diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-18 20:23:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-18 20:23:02 +0000 |
| commit | a89a1adb4d6740fe1401ef33d00ed42e1fc54901 (patch) | |
| tree | 1195062128b8f202764152561e538634bad22474 /ext/B | |
| parent | 209a9bc1bcfe078e350f0f6efa8375fce6dcbb44 (diff) | |
| download | perl-a89a1adb4d6740fe1401ef33d00ed42e1fc54901.tar.gz | |
Declare hints only if needed.
p4raw-id: //depot/perl@9741
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 25db66ad1d..7004975617 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -995,7 +995,7 @@ sub declare_warnings { sub declare_hints { my ($from, $to) = @_; my $bits = $to; - return sprintf "BEGIN {\$^H &= ~0xFF; \$^H |= %x}\n", $bits; + return $bits ? (sprintf "BEGIN {\$^H &= ~0xFF; \$^H |= %x}\n", $bits) : ''; } sub pp_dbstate { pp_nextstate(@_) } |