From ed006a8eb44831189e152826c692330d0a0cfe3b Mon Sep 17 00:00:00 2001 From: Manuel Traut Date: Mon, 18 Jul 2011 14:00:12 +0200 Subject: delete beagle-dir Signed-off-by: Manuel Traut --- .../usr/share/perl/5.10.1/warnings/register.pm | 32 ---------------------- 1 file changed, 32 deletions(-) delete mode 100644 beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm (limited to 'beagle/debian-rfs/usr/share/perl/5.10.1/warnings') diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm deleted file mode 100644 index 65dba3d..0000000 --- a/beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm +++ /dev/null @@ -1,32 +0,0 @@ -package warnings::register; - -our $VERSION = '1.01'; - -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; -- cgit v1.2.3