diff options
Diffstat (limited to 'contrib/perl5/lib/warnings/register.pm')
-rw-r--r-- | contrib/perl5/lib/warnings/register.pm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/contrib/perl5/lib/warnings/register.pm b/contrib/perl5/lib/warnings/register.pm deleted file mode 100644 index f98075a..0000000 --- a/contrib/perl5/lib/warnings/register.pm +++ /dev/null @@ -1,38 +0,0 @@ -package warnings::register ; - -=pod - -=head1 NAME - -warnings::register - warnings import function - -=cut - -require warnings ; - -sub mkMask -{ - my ($bit) = @_ ; - my $mask = "" ; - - vec($mask, $bit, 1) = 1 ; - return $mask ; -} - -sub import -{ - shift ; - my $package = (caller(0))[0] ; - if (! defined $warnings::Bits{$package}) { - $warnings::Bits{$package} = mkMask($warnings::LAST_BIT) ; - vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1 ; - $warnings::Offsets{$package} = $warnings::LAST_BIT ++ ; - foreach my $k (keys %warnings::Bits) { - vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0 ; - } - $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); - vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1 ; - } -} - -1 ; |