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 /
ext /
File-DosGlob /
Delete
Unzip
Name
Size
Permission
Date
Action
blib
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
lib
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
t
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
DosGlob.bs
0
B
-rw-r--r--
2016-10-10 17:41
DosGlob.c
6.47
KB
-rw-r--r--
2016-10-10 17:39
DosGlob.o
3.82
KB
-rw-r--r--
2016-10-10 17:39
DosGlob.xs
976
B
-r--r--r--
2014-12-27 11:48
Makefile
29.31
KB
-rw-r--r--
2016-10-10 17:39
Makefile.PL
1.57
KB
-rw-r--r--
2016-10-10 17:39
pm_to_blib
0
B
-rw-r--r--
2016-10-10 17:39
Save
Rename
#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #define MY_CXT_KEY "File::Glob::_guts" XS_VERSION typedef struct { HV * x_DG_ENTRIES; Perl_ophook_t x_DG_OLD_OPHOOK; } my_cxt_t; START_MY_CXT static void glob_ophook(pTHX_ OP *o) { if (PL_dirty) return; { dMY_CXT; if (!MY_CXT.x_DG_ENTRIES) MY_CXT.x_DG_ENTRIES = get_hv("File::DosGlob::entries", 0); if (MY_CXT.x_DG_ENTRIES) (void)hv_delete(MY_CXT.x_DG_ENTRIES, (char *)&o, sizeof(OP *),G_DISCARD); if (MY_CXT.x_DG_OLD_OPHOOK) MY_CXT.x_DG_OLD_OPHOOK(aTHX_ o); } } MODULE = File::DosGlob PACKAGE = File::DosGlob PROTOTYPES: DISABLE BOOT: { MY_CXT_INIT; { dMY_CXT; MY_CXT.x_DG_ENTRIES = NULL; MY_CXT.x_DG_OLD_OPHOOK = PL_opfreehook; PL_opfreehook = glob_ophook; } } SV * _callsite(...) CODE: PERL_UNUSED_VAR(items); RETVAL = newSVpvn( (char *)&cxstack[cxstack_ix].blk_sub.retop, sizeof(OP *) ); OUTPUT: RETVAL