Linux yavrix.internet-webhosting.com 3.10.0-962.3.2.lve1.5.88.el7.x86_64 #1 SMP Fri Sep 26 14:06:42 UTC 2025 x86_64
LiteSpeed
Server IP : 103.8.25.136 & Your IP : 216.73.216.149
Domains :
Cant Read [ /etc/named.conf ]
User : klinikpe
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
warnings /
Delete
Unzip
Name
Size
Permission
Date
Action
register.pm
772
B
-rw-r--r--
2026-07-17 11:35
Save
Rename
package warnings::register; our $VERSION = '1.02'; =pod =head1 NAME warnings::register - warnings import function =head1 SYNOPSIS use warnings::register; =head1 DESCRIPTION Creates a warnings category with the same name as the current package. See L<warnings> and L<perllexwarn> for more information on this module's usage. =cut 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;