Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.171
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
MLDBM /
Serializer /
[ HOME SHELL ]
Name
Size
Permission
Action
Data
[ DIR ]
drwxr-xr-x
FreezeThaw.pm
351
B
-rw-r--r--
Storable.pm
922
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Storable.pm
#################################################################### package MLDBM::Serializer::Storable; BEGIN { @MLDBM::Serializer::Storable::ISA = qw(MLDBM::Serializer) } use Storable; sub new { my $self = shift->SUPER::new(); $self->DumpMeth(shift); # Storable doesn't honor other attributes $self; } # # Serialize a reference to supplied value # sub serialize { my $self = shift; my $dumpmeth = $self->{'_dumpsub_'}; &$dumpmeth(\$_[0]); } # # Deserialize and de-reference # sub deserialize { my $obj = Storable::thaw($_[1]); # Does not care whether portable defined($obj) ? $$obj : undef; } # # Change dump method when portability is requested # sub DumpMeth { my $self = shift; $self->{'_dumpsub_'} = ($_[0] && $_[0] eq 'portable' ? \&Storable::nfreeze : \&Storable::freeze); $self->_attrib('dumpmeth', @_); } 1;
Close
