📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 04:32:07
📂
/ (Root)
/
usr
/
share
/
perl
/
5.24.1
/
warnings
📍 /usr/share/perl/5.24.1/warnings
🔄 Refresh
✏️
Editing: register.pm
Read Only
package warnings::register; our $VERSION = '1.04'; 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(0))[0]; warnings::register_categories($package); warnings::register_categories($package . "::$_") for @categories; } 1; __END__
💾 Save Changes
❌ Cancel