From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 12 Jun 1999 06:38:21 +0000 (+0000)
Subject: caller.pm typos
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=22b491d3a115964a8dde699347569bf3176f8b1a;p=p5sagit%2Fp5-mst-13.2.git

caller.pm typos

p4raw-id: //depot/perl@3536
---

diff --git a/lib/caller.pm b/lib/caller.pm
index 7029212..91e67a1 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];
     }
 }