[Encode] UTF-7 Support

[p5sagit/p5-mst-13.2.git] / lib / strict.pm

diff --git a/lib/strict.pm b/lib/strict.pm
index 2eb756c..591fa39 100644 (file)
--- 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,
@@ -16,24 +16,22 @@ sub bits {
         $bits |= $bitmask{$s} || 0;
     }
     if (@wrong) {
-        my $useno = {
-         __PACKAGE__.'::import' => 'use',
-         __PACKAGE__.'::unimport' => 'no'
-        }->{ (caller(1))[3] };
         require Carp;
-        Carp::croak("Don't know how to '$useno ".__PACKAGE__." qw(@wrong)'");
+        Carp::croak("Unknown 'strict' tag(s) '@wrong'");
     }
     $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;