One Hat Cyber Team
Your IP :
104.23.197.77
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
/
vendor_perl
/
Pod
/
Simple
/
Edit File:
Transcode.pm
require 5; package Pod::Simple::Transcode; use vars qw($VERSION ); $VERSION = '3.28'; BEGIN { if(defined &DEBUG) {;} # Okay elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } else { *DEBUG = sub () {0}; } } foreach my $class ( 'Pod::Simple::TranscodeSmart', 'Pod::Simple::TranscodeDumb', '', ) { $class or die "Couldn't load any encoding classes"; DEBUG and print "About to try loading $class...\n"; eval "require $class;"; if($@) { DEBUG and print "Couldn't load $class: $@\n"; } else { DEBUG and print "OK, loaded $class.\n"; @ISA = ($class); last; } } sub _blorp { return; } # just to avoid any "empty class" warning 1; __END__
Simpan