Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.6.1
/
distrib
/
lib
/
warnings
/
register.pm
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
register.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
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
;