Linux server.bornosky.com 4.18.0-477.13.1.lve.el8.x86_64 #1 SMP Thu Jun 1 16:40:47 EDT 2023 x86_64
Apache
: 95.217.200.235 | : 18.191.28.200
Cant Read [ /etc/named.conf ]
7.3.33
aggscedu
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
Attribute
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
CPAN
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Compress
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
DBM_Filter
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
ExtUtils
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
I18N
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Locale
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Memoize
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Pod
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Thread
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
encoding
[ DIR ]
drwxr-xr-x
overload
[ DIR ]
drwxr-xr-x
pod
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.56
KB
-rw-r--r--
AutoLoader.pm
15.43
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
30.3
KB
-rw-r--r--
CORE.pod
3.11
KB
-rw-r--r--
DB.pm
18.48
KB
-rw-r--r--
DBM_Filter.pm
14.05
KB
-rw-r--r--
DirHandle.pm
1.52
KB
-rw-r--r--
Dumpvalue.pm
17.14
KB
-rw-r--r--
English.pm
4.65
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.63
KB
-rw-r--r--
FindBin.pm
4.45
KB
-rw-r--r--
Internals.pod
2.52
KB
-rw-r--r--
Memoize.pm
35.34
KB
-rw-r--r--
NEXT.pm
18.4
KB
-rw-r--r--
PerlIO.pm
10.21
KB
-rw-r--r--
Safe.pm
24.49
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
17.28
KB
-rw-r--r--
Symbol.pm
4.69
KB
-rw-r--r--
Test.pm
29.35
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.44
KB
-rw-r--r--
URI.pm
33.97
KB
-rw-r--r--
XSLoader.pm
11
KB
-rw-r--r--
_charnames.pm
32.39
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
10.72
KB
-rw-r--r--
blib.pm
2.04
KB
-rw-r--r--
bytes.pm
3.67
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
charnames.pm
20.38
KB
-rw-r--r--
deprecate.pm
3.01
KB
-rw-r--r--
diagnostics.pm
18.59
KB
-rw-r--r--
dumpvar.pl
15.19
KB
-rw-r--r--
feature.pm
16.68
KB
-rw-r--r--
fields.pm
9.27
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
if.pm
3.26
KB
-rw-r--r--
integer.pm
3.18
KB
-rw-r--r--
less.pm
3.13
KB
-rw-r--r--
locale.pm
4.74
KB
-rw-r--r--
meta_notation.pm
2.07
KB
-rw-r--r--
open.pm
7.83
KB
-rw-r--r--
overload.pm
52.06
KB
-rw-r--r--
overloading.pm
1.77
KB
-rw-r--r--
perl5db.pl
309
KB
-rw-r--r--
sigtrap.pm
7.43
KB
-rw-r--r--
sort.pm
5.94
KB
-rw-r--r--
strict.pm
4.63
KB
-rw-r--r--
subs.pm
848
B
-rw-r--r--
utf8.pm
8.9
KB
-rw-r--r--
utf8_heavy.pl
30.87
KB
-rw-r--r--
vars.pm
2.36
KB
-rw-r--r--
vmsish.pm
4.21
KB
-rw-r--r--
warnings.pm
43.71
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : deprecate.pm
package deprecate; use strict; use warnings; our $VERSION = 0.03; # our %Config can ignore %Config::Config, e.g. for testing our %Config; unless (%Config) { require Config; *Config = \%Config::Config; } # This isn't a public API. It's internal to code maintained by the perl-porters # If you would like it to be a public API, please send a patch with # documentation and tests. Until then, it may change without warning. sub __loaded_from_core { my ($package, $file, $expect_leaf) = @_; foreach my $pair ([qw(sitearchexp archlibexp)], [qw(sitelibexp privlibexp)]) { my ($site, $priv) = @Config{@$pair}; if ($^O eq 'VMS') { for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) }; } # Just in case anyone managed to configure with trailing /s s!/*$!!g foreach $site, $priv; next if $site eq $priv; if (uc("$priv/$expect_leaf") eq uc($file)) { return 1; } } return 0; } sub import { my ($package, $file) = caller; my $expect_leaf = "$package.pm"; $expect_leaf =~ s!::!/!g; if (__loaded_from_core($package, $file, $expect_leaf)) { my $call_depth=1; my @caller; while (@caller = caller $call_depth++) { last if $caller[7] # use/require and $caller[6] eq $expect_leaf; # the package file } unless (@caller) { require Carp; Carp::cluck(<<"EOM"); Can't find use/require $expect_leaf in caller stack EOM return; } # This is fragile, because it # is directly poking in the internals of warnings.pm my ($call_file, $call_line, $callers_bitmask) = @caller[1,2,9]; if (defined $callers_bitmask && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1) || vec($callers_bitmask, $warnings::Offsets{all}, 1))) { warn <<"EOM"; $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line. EOM } } } 1; __END__ =head1 NAME deprecate - Perl pragma for deprecating the core version of a module =head1 SYNOPSIS use deprecate; # always deprecate the module in which this occurs use if $] > 5.010, 'deprecate'; # conditionally deprecate the module =head1 DESCRIPTION This module is used using C<use deprecate;> (or something that calls C<< deprecate->import() >>, for example C<use if COND, deprecate;>). If the module that includes C<use deprecate> is located in a core library directory, a deprecation warning is issued, encouraging the user to use the version on CPAN. If that module is located in a site library, it is the CPAN version, and no warning is issued. =head2 EXPORT None by default. The only method is C<import>, called by C<use deprecate;>. =head1 SEE ALSO First example to C<use deprecate;> was L<Switch>. =head1 AUTHOR Original version by Nicholas Clark =head1 COPYRIGHT AND LICENSE Copyright (C) 2009, 2011 This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available. =cut
Close
