Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Devel-PPPort /
parts /
inc /
Delete
Unzip
Name
Size
Permission
Date
Action
HvNAME
961
B
-r--r--r--
2014-12-27 11:48
MY_CXT
5.02
KB
-r--r--r--
2014-12-27 11:48
SvPV
14.47
KB
-r--r--r--
2014-12-27 11:49
SvREFCNT
3.78
KB
-r--r--r--
2014-12-27 11:48
Sv_set
2.93
KB
-r--r--r--
2014-12-27 11:48
call
9.12
KB
-r--r--r--
2014-12-27 11:49
cop
2.76
KB
-r--r--r--
2014-12-27 11:49
exception
1.66
KB
-r--r--r--
2014-12-27 11:48
format
1.56
KB
-r--r--r--
2014-12-27 11:48
grok
20.45
KB
-r--r--r--
2014-12-27 11:49
gv
2.8
KB
-r--r--r--
2014-12-27 11:48
limits
7.25
KB
-r--r--r--
2014-12-27 11:48
mPUSH
3.27
KB
-r--r--r--
2014-12-27 11:48
magic
10.14
KB
-r--r--r--
2014-12-27 11:49
memory
2.24
KB
-r--r--r--
2014-12-27 11:48
misc
13.64
KB
-r--r--r--
2014-12-27 11:49
newCONSTSUB
2.54
KB
-r--r--r--
2014-12-27 11:48
newRV
1.4
KB
-r--r--r--
2014-12-27 11:48
newSV_type
1.61
KB
-r--r--r--
2014-12-27 11:48
newSVpv
2.53
KB
-r--r--r--
2014-12-27 11:48
podtest
1.07
KB
-r--r--r--
2014-12-27 11:48
ppphbin
20.5
KB
-r--r--r--
2014-12-27 11:48
ppphdoc
9.64
KB
-r--r--r--
2014-12-27 11:49
ppphtest
21.33
KB
-r--r--r--
2014-12-27 11:49
pv_tools
8.35
KB
-r--r--r--
2014-12-27 11:49
pvs
4.3
KB
-r--r--r--
2014-12-27 11:48
shared_pv
2.14
KB
-r--r--r--
2014-12-27 11:48
snprintf
1.39
KB
-r--r--r--
2014-12-27 11:48
sprintf
1.12
KB
-r--r--r--
2014-12-27 11:48
strlfuncs
2.47
KB
-r--r--r--
2014-12-27 11:48
sv_xpvf
6.98
KB
-r--r--r--
2014-12-27 11:48
threads
1.34
KB
-r--r--r--
2014-12-27 11:48
uv
3.21
KB
-r--r--r--
2014-12-27 11:48
variables
13.2
KB
-r--r--r--
2014-12-27 11:49
version
1.56
KB
-r--r--r--
2014-12-27 11:48
warn
4.36
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
################################################################################ ## ## Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. ## Version 2.x, Copyright (C) 2001, Paul Marquess. ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski. ## ## This program is free software; you can redistribute it and/or ## modify it under the same terms as Perl itself. ## ################################################################################ =provides __UNDEFINED__ ckWARN warner Perl_warner Perl_warner_nocontext =implementation __UNDEFINED__ WARN_ALL 0 __UNDEFINED__ WARN_CLOSURE 1 __UNDEFINED__ WARN_DEPRECATED 2 __UNDEFINED__ WARN_EXITING 3 __UNDEFINED__ WARN_GLOB 4 __UNDEFINED__ WARN_IO 5 __UNDEFINED__ WARN_CLOSED 6 __UNDEFINED__ WARN_EXEC 7 __UNDEFINED__ WARN_LAYER 8 __UNDEFINED__ WARN_NEWLINE 9 __UNDEFINED__ WARN_PIPE 10 __UNDEFINED__ WARN_UNOPENED 11 __UNDEFINED__ WARN_MISC 12 __UNDEFINED__ WARN_NUMERIC 13 __UNDEFINED__ WARN_ONCE 14 __UNDEFINED__ WARN_OVERFLOW 15 __UNDEFINED__ WARN_PACK 16 __UNDEFINED__ WARN_PORTABLE 17 __UNDEFINED__ WARN_RECURSION 18 __UNDEFINED__ WARN_REDEFINE 19 __UNDEFINED__ WARN_REGEXP 20 __UNDEFINED__ WARN_SEVERE 21 __UNDEFINED__ WARN_DEBUGGING 22 __UNDEFINED__ WARN_INPLACE 23 __UNDEFINED__ WARN_INTERNAL 24 __UNDEFINED__ WARN_MALLOC 25 __UNDEFINED__ WARN_SIGNAL 26 __UNDEFINED__ WARN_SUBSTR 27 __UNDEFINED__ WARN_SYNTAX 28 __UNDEFINED__ WARN_AMBIGUOUS 29 __UNDEFINED__ WARN_BAREWORD 30 __UNDEFINED__ WARN_DIGIT 31 __UNDEFINED__ WARN_PARENTHESIS 32 __UNDEFINED__ WARN_PRECEDENCE 33 __UNDEFINED__ WARN_PRINTF 34 __UNDEFINED__ WARN_PROTOTYPE 35 __UNDEFINED__ WARN_QW 36 __UNDEFINED__ WARN_RESERVED 37 __UNDEFINED__ WARN_SEMICOLON 38 __UNDEFINED__ WARN_TAINT 39 __UNDEFINED__ WARN_THREADS 40 __UNDEFINED__ WARN_UNINITIALIZED 41 __UNDEFINED__ WARN_UNPACK 42 __UNDEFINED__ WARN_UNTIE 43 __UNDEFINED__ WARN_UTF8 44 __UNDEFINED__ WARN_VOID 45 __UNDEFINED__ WARN_ASSERTIONS 46 __UNDEFINED__ packWARN(a) (a) #ifndef ckWARN # ifdef G_WARN_ON # define ckWARN(a) (PL_dowarn & G_WARN_ON) # else # define ckWARN(a) PL_dowarn # endif #endif #if { VERSION >= 5.004 } && !defined(warner) #if { NEED warner } void warner(U32 err, const char *pat, ...) { SV *sv; va_list args; PERL_UNUSED_ARG(err); va_start(args, pat); sv = vnewSVpvf(pat, &args); va_end(args); sv_2mortal(sv); warn("%s", SvPV_nolen(sv)); } #define warner Perl_warner #define Perl_warner_nocontext Perl_warner #endif #endif =xsinit #define NEED_warner =xsubs void warner() CODE: #if { VERSION >= 5.004 } warner(packWARN(WARN_MISC), "warner %s:%d", "bar", 42); #endif void Perl_warner() CODE: #if { VERSION >= 5.004 } Perl_warner(aTHX_ packWARN(WARN_MISC), "Perl_warner %s:%d", "bar", 42); #endif void Perl_warner_nocontext() CODE: #if { VERSION >= 5.004 } Perl_warner_nocontext(packWARN(WARN_MISC), "Perl_warner_nocontext %s:%d", "bar", 42); #endif void ckWARN() CODE: #if { VERSION >= 5.004 } if (ckWARN(WARN_MISC)) Perl_warner_nocontext(packWARN(WARN_MISC), "ckWARN %s:%d", "bar", 42); #endif =tests plan => 5 $^W = 0; my $warning; $SIG{'__WARN__'} = sub { $warning = $_[0] }; $warning = ''; Devel::PPPort::warner(); ok($] >= 5.004 ? $warning =~ /^warner bar:42/ : $warning eq ''); $warning = ''; Devel::PPPort::Perl_warner(); ok($] >= 5.004 ? $warning =~ /^Perl_warner bar:42/ : $warning eq ''); $warning = ''; Devel::PPPort::Perl_warner_nocontext(); ok($] >= 5.004 ? $warning =~ /^Perl_warner_nocontext bar:42/ : $warning eq ''); $warning = ''; Devel::PPPort::ckWARN(); ok($warning, ''); $^W = 1; $warning = ''; Devel::PPPort::ckWARN(); ok($] >= 5.004 ? $warning =~ /^ckWARN bar:42/ : $warning eq '');