diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-05 16:14:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-05 16:14:09 +0000 |
| commit | 08d31bcd142b90ebd3b97b5ea6f954896723ca96 (patch) | |
| tree | 6a1376534a5a78ad0f192655b834fec922c895d8 /lib/strict.pm | |
| parent | b6d5dbc1eed820c42d86630d1d36196ce0c8b8fc (diff) | |
| download | perl-08d31bcd142b90ebd3b97b5ea6f954896723ca96.tar.gz | |
Re: Minor change to strict.pm. Who? How?
From: Adam Kennedy <adam@ali.as>
Date: Wed, 30 Apr 2003 00:02:40 +1000
Message-ID: <3EAE8600.2000806@ali.as>
Subject: [PATCH] Re: Minor change to strict.pm. Who? How?
From: Michael G Schwern <schwern@pobox.com>
Date: Tue, 29 Apr 2003 12:26:32 -0700
Message-ID: <20030429192632.GA6129@windhund.schwern.org>
p4raw-id: //depot/perl@19427
Diffstat (limited to 'lib/strict.pm')
| -rw-r--r-- | lib/strict.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/strict.pm b/lib/strict.pm index d1479ed865..591fa396a4 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -1,6 +1,6 @@ package strict; -$strict::VERSION = "1.02"; +$strict::VERSION = "1.03"; my %bitmask = ( refs => 0x00000002, @@ -22,14 +22,16 @@ sub bits { $bits; } +my $default_bits = bits(qw(refs subs vars)); + sub import { shift; - $^H |= bits(@_ ? @_ : qw(refs subs vars)); + $^H |= @_ ? bits(@_) : $default_bits; } sub unimport { shift; - $^H &= ~ bits(@_ ? @_ : qw(refs subs vars)); + $^H &= ~ (@_ ? bits(@_) : $default_bits); } 1; |