Linux web-conference.aiou.edu.pk 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64
Apache/2.4.41 (Ubuntu)
: 172.16.50.247 | : 3.147.67.237
Cant Read [ /etc/named.conf ]
7.4.3-4ubuntu2.28
www-data
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl /
5.30.0 /
Memoize /
[ HOME SHELL ]
Name
Size
Permission
Action
AnyDBM_File.pm
674
B
-rw-r--r--
Expire.pm
11.43
KB
-rw-r--r--
ExpireFile.pm
1.03
KB
-rw-r--r--
ExpireTest.pm
883
B
-rw-r--r--
NDBM_File.pm
1.45
KB
-rw-r--r--
SDBM_File.pm
1.45
KB
-rw-r--r--
Storable.pm
1.39
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : AnyDBM_File.pm
package Memoize::AnyDBM_File; =head1 NAME Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use =head1 DESCRIPTION See L<Memoize>. =cut use vars qw(@ISA $VERSION); $VERSION = '1.03'; @ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA; my $verbose = 1; my $mod; for $mod (@ISA) { # (my $truemod = $mod) =~ s/^Memoize:://; # my $file = "$mod.pm"; # $file =~ s{::}{/}g; if (eval "require $mod") { print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose; @ISA = ($mod); # if we leave @ISA alone, warnings abound return 1; } } die "No DBM package was successfully found or installed";
Close
