EVERYTHING FROM THE OTHER REPO

include/dual_rootfs/usr/lib/arm-linux-gnueabihf/perl-base/warnings/register.pm

@@ -0,0 +1,28 @@
+package warnings::register 1.06;
+
+require warnings;
+
+# left here as cruft in case other users were using this undocumented routine
+# -- rjbs, 2010-09-08
+sub mkMask
+{
+    my ($bit) = @_;
+    my $mask = "";
+
+    vec($mask, $bit, 1) = 1;
+    return $mask;
+}
+
+sub import
+{
+    shift;
+    my @categories = @_;
+
+    my $package = caller;
+    warnings::register_categories($package);
+
+    warnings::register_categories($package . "::$_") for @categories;
+}
+1;
+__END__
+