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 /
Carp /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
Carp.t
10.98
KB
-r--r--r--
2014-12-27 11:48
Carp_overload.t
1.4
KB
-r--r--r--
2014-12-27 11:48
arg_regexp.t
2.69
KB
-r--r--r--
2014-12-27 11:48
arg_string.t
1.43
KB
-r--r--r--
2014-12-27 11:48
baduni.t
232
B
-r--r--r--
2014-12-27 11:48
baduni_warnings.t
269
B
-r--r--r--
2014-12-27 11:48
errno.t
1.23
KB
-r--r--r--
2014-12-27 11:48
heavy.t
294
B
-r--r--r--
2014-12-27 11:48
heavy_mismatch.t
276
B
-r--r--r--
2014-12-27 11:48
stash_deletion.t
2.08
KB
-r--r--r--
2014-12-27 11:48
swash.t
99
B
-r--r--r--
2014-12-27 11:48
vivify_gv.t
873
B
-r--r--r--
2014-12-27 11:48
vivify_stash.t
818
B
-r--r--r--
2014-12-27 11:48
with_warnings.t
168
B
-r--r--r--
2014-12-27 11:48
Save
Rename
use warnings; use strict; use Test::More tests => 32; use Carp (); sub lmm { Carp::longmess("x") } sub lm { lmm() } like lm(3), qr/main::lm\(3\)/; like lm(substr("3\x{2603}", 0, 1)), qr/main::lm\(3\)/; like lm(-3), qr/main::lm\(-3\)/; like lm(-3.5), qr/main::lm\(-3\.5\)/; like lm(-3.5e100), qr/main::lm\(-3\.5[eE]\+?100\)/; like lm(""), qr/main::lm\(""\)/; like lm("foo"), qr/main::lm\("foo"\)/; like lm("a\$b\@c\\d\"e"), qr/main::lm\("a\\\$b\\\@c\\\\d\\\"e"\)/; like lm("a\nb"), qr/main::lm\("a\\x\{a\}b"\)/; like lm("a\x{666}b"), qr/main::lm\("a\\x\{666\}b"\)/; like lm("\x{666}b"), qr/main::lm\("\\x\{666\}b"\)/; like lm("a\x{666}"), qr/main::lm\("a\\x\{666\}"\)/; like lm("L\xe9on"), qr/main::lm\("L\\x\{e9\}on"\)/; like lm("L\xe9on \x{2603} !"), qr/main::lm\("L\\x\{e9\}on \\x\{2603\} !"\)/; $Carp::MaxArgLen = 5; foreach my $arg ("foo bar baz", "foo bar ba", "foo bar b", "foo bar ", "foo bar", "foo ba") { like lm($arg), qr/main::lm\("fo"\.\.\.\)/; } foreach my $arg ("foo b", "foo ", "foo", "fo", "f", "") { like lm($arg), qr/main::lm\("\Q$arg\E"\)/; } like lm("L\xe9on \x{2603} !"), qr/main::lm\("L\\x\{e9\}"\.\.\.\)/; like lm("L\xe9on\x{2603}"), qr/main::lm\("L\\x\{e9\}on\\x\{2603\}"\)/; like lm("foo\x{2603}"), qr/main::lm\("foo\\x\{2603\}"\)/; $Carp::MaxArgLen = 0; foreach my $arg ("wibble." x 20, "foo bar baz") { like lm($arg), qr/main::lm\("\Q$arg\E"\)/; } like lm("L\xe9on\x{2603}"), qr/main::lm\("L\\x\{e9\}on\\x\{2603\}"\)/; 1;