diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-12 06:38:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-12 06:38:21 +0000 |
| commit | 22b491d3a115964a8dde699347569bf3176f8b1a (patch) | |
| tree | 3a093b9d82b1294f63bfcedda572c0cf5b06d31a /lib | |
| parent | 43165c0500446fb6e4a036657f82b50e22c886e0 (diff) | |
| download | perl-22b491d3a115964a8dde699347569bf3176f8b1a.tar.gz | |
caller.pm typos
p4raw-id: //depot/perl@3536
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/caller.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/caller.pm b/lib/caller.pm index 70292122d7..91e67a1743 100644 --- a/lib/caller.pm +++ b/lib/caller.pm @@ -33,7 +33,7 @@ setting in the calling context. =cut -my %bits = ( +my %bitmask = ( # only HINT_UTF8 supported for now encoding => 0x8 ); @@ -48,9 +48,7 @@ sub import { shift; my @cxt = caller(3); if (@cxt and $cxt[7]) { # was our parent require-d? - #warn "hints was $^H\n"; - $^H |= bits(@_) | $cxt[8]; - #warn "hints now $^H\n"; + $^H |= bits(@_) & $cxt[8]; } } |