One Hat Cyber Team
Your IP :
172.69.130.198
Server IP :
188.114.97.3
Server :
Linux thuru 6.5.11-4-pve #1 SMP PREEMPT_DYNAMIC PMX 6.5.11-4 (2023-11-20T10:19Z) x86_64
Server Software :
Apache/2.4.51 (Unix) OpenSSL/1.0.2k-fips
PHP Version :
7.3.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
perl5
/
warnings
/
Edit File:
register.pm
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;
Simpan