1 files changed, 0 insertions, 32 deletions
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;