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 /
t /
op /
Delete
Unzip
Name
Size
Permission
Date
Action
64bitint.t
8.14
KB
-r--r--r--
2014-12-27 11:49
alarm.t
1.5
KB
-r--r--r--
2014-12-27 11:49
anonsub.t
1.7
KB
-r--r--r--
2014-12-27 11:49
append.t
1.58
KB
-r--r--r--
2014-12-27 11:49
args.t
2.12
KB
-r--r--r--
2014-12-27 11:49
array.t
12.32
KB
-r--r--r--
2014-12-27 11:49
array_base.t
720
B
-r--r--r--
2014-12-27 11:49
assignwarn.t
1.52
KB
-r--r--r--
2014-12-27 11:49
attrhand.t
1.01
KB
-r--r--r--
2014-12-27 11:49
attrproto.t
6.55
KB
-r--r--r--
2014-12-27 11:49
attrs.t
10.73
KB
-r--r--r--
2014-12-27 11:49
auto.t
2.36
KB
-r--r--r--
2014-12-27 11:49
avhv.t
4.04
KB
-r--r--r--
2014-12-27 11:49
bless.t
4.12
KB
-r--r--r--
2014-12-27 11:49
blocks.t
2.95
KB
-r--r--r--
2014-12-27 11:49
bop.t
12.82
KB
-r--r--r--
2014-12-27 11:49
caller.pl
3.75
KB
-r--r--r--
2014-12-27 11:49
caller.t
8.14
KB
-r--r--r--
2014-12-27 11:49
chars.t
1.73
KB
-r--r--r--
2014-12-27 11:49
chdir.t
6.68
KB
-r--r--r--
2014-12-27 11:49
chop.t
7.67
KB
-r--r--r--
2014-12-27 11:49
chr.t
2.48
KB
-r--r--r--
2014-12-27 11:49
closure.t
19.6
KB
-r--r--r--
2014-12-27 11:49
closure_test.pl
327
B
-r--r--r--
2014-12-27 11:49
concat2.t
1.41
KB
-r--r--r--
2014-12-27 11:49
cond.t
282
B
-r--r--r--
2014-12-27 11:49
context.t
404
B
-r--r--r--
2014-12-27 11:49
coreamp.t
29.17
KB
-r--r--r--
2014-12-27 11:49
coresubs.t
4.87
KB
-r--r--r--
2014-12-27 11:49
cproto.t
3.6
KB
-r--r--r--
2014-12-27 11:49
crypt.t
1.17
KB
-r--r--r--
2014-12-27 11:49
current_sub.t
1.71
KB
-r--r--r--
2014-12-27 11:49
dbm.t
1.54
KB
-r--r--r--
2014-12-27 11:49
defined.t
551
B
-r--r--r--
2014-12-27 11:49
defins.t
4.84
KB
-r--r--r--
2014-12-27 11:49
delete.t
2.93
KB
-r--r--r--
2014-12-27 11:49
die.t
1.99
KB
-r--r--r--
2014-12-27 11:49
die_except.t
1.57
KB
-r--r--r--
2014-12-27 11:49
die_exit.t
1.9
KB
-r--r--r--
2014-12-27 11:49
die_keeperr.t
1.57
KB
-r--r--r--
2014-12-27 11:49
die_unwind.t
1.69
KB
-r--r--r--
2014-12-27 11:49
do.t
8.35
KB
-r--r--r--
2014-12-27 11:49
dor.t
2.64
KB
-r--r--r--
2014-12-27 11:49
each.t
7.09
KB
-r--r--r--
2014-12-27 11:49
each_array.t
5.48
KB
-r--r--r--
2014-12-27 11:49
eval.t
13.92
KB
-r--r--r--
2014-12-27 11:49
evalbytes.t
989
B
-r--r--r--
2014-12-27 11:49
exec.t
4.36
KB
-r--r--r--
2014-12-27 11:49
exists_sub.t
2.09
KB
-r--r--r--
2014-12-27 11:49
exp.t
1.47
KB
-r--r--r--
2014-12-27 11:49
fh.t
790
B
-r--r--r--
2014-12-27 11:49
filehandle.t
564
B
-r--r--r--
2014-12-27 11:49
filetest.t
11.97
KB
-r--r--r--
2014-12-27 11:49
filetest_stack_ok.t
1.12
KB
-r--r--r--
2014-12-27 11:49
filetest_t.t
1.18
KB
-r--r--r--
2014-12-27 11:49
flip.t
868
B
-r--r--r--
2014-12-27 11:49
for.t
12.77
KB
-r--r--r--
2014-12-27 11:49
fork.t
8.8
KB
-r--r--r--
2014-12-27 11:49
fresh_perl_utf8.t
411
B
-r--r--r--
2014-12-27 11:49
getpid.t
1.61
KB
-r--r--r--
2014-12-27 11:49
getppid.t
3.13
KB
-r--r--r--
2014-12-27 11:49
glob.t
4.22
KB
-r--r--r--
2014-12-27 11:49
gmagic.t
5.97
KB
-r--r--r--
2014-12-27 11:49
goto.t
14.85
KB
-r--r--r--
2014-12-27 11:49
goto_xs.t
2.98
KB
-r--r--r--
2014-12-27 11:49
grent.t
4.46
KB
-r--r--r--
2014-12-27 11:49
grep.t
6.66
KB
-r--r--r--
2014-12-27 11:49
groups.t
11.15
KB
-r--r--r--
2014-12-27 11:49
gv.t
30.15
KB
-r--r--r--
2014-12-27 11:49
hash-rt85026.t
1.57
KB
-r--r--r--
2014-12-27 11:49
hash.t
6.02
KB
-r--r--r--
2014-12-27 11:49
hashassign.t
18.85
KB
-r--r--r--
2014-12-27 11:49
hashwarn.t
2.05
KB
-r--r--r--
2014-12-27 11:49
heredoc.t
2.29
KB
-r--r--r--
2014-12-27 11:49
inc.t
6.72
KB
-r--r--r--
2014-12-27 11:49
inccode-tie.t
338
B
-r--r--r--
2014-12-27 11:49
inccode.t
11.19
KB
-r--r--r--
2014-12-27 11:49
incfilter.t
7.33
KB
-r--r--r--
2014-12-27 11:49
index.t
6.81
KB
-r--r--r--
2014-12-27 11:49
index_thr.t
56
B
-r--r--r--
2014-12-27 11:49
int.t
1.72
KB
-r--r--r--
2014-12-27 11:49
join.t
3.2
KB
-r--r--r--
2014-12-27 11:49
kill0.t
3.18
KB
-r--r--r--
2014-12-27 11:49
kill0_child
596
B
-r--r--r--
2014-12-27 11:49
kvaslice.t
4.66
KB
-r--r--r--
2014-12-27 11:49
kvhslice.t
5.44
KB
-r--r--r--
2014-12-27 11:49
lc.t
11.8
KB
-r--r--r--
2014-12-27 11:49
leaky-magic.t
3.43
KB
-r--r--r--
2014-12-27 11:49
length.t
5.03
KB
-r--r--r--
2014-12-27 11:49
lex.t
2.33
KB
-r--r--r--
2014-12-27 11:49
lex_assign.t
7.17
KB
-r--r--r--
2014-12-27 11:49
lexsub.t
19.62
KB
-r--r--r--
2014-12-27 12:24
lfs.t
6.2
KB
-r--r--r--
2014-12-27 11:49
list.t
5.31
KB
-r--r--r--
2014-12-27 11:52
local.t
17.11
KB
-r--r--r--
2014-12-27 11:49
localref.t
2.73
KB
-r--r--r--
2014-12-27 11:49
lock.t
465
B
-r--r--r--
2014-12-27 11:49
loopctl.t
17.88
KB
-r--r--r--
2014-12-27 11:49
lop.t
1.2
KB
-r--r--r--
2014-12-27 11:49
magic-27839.t
622
B
-r--r--r--
2014-12-27 11:49
magic.t
21.81
KB
-r--r--r--
2014-12-27 11:49
method.t
18.91
KB
-r--r--r--
2014-12-27 11:49
mkdir.t
1.25
KB
-r--r--r--
2014-12-27 11:49
my.t
4.29
KB
-r--r--r--
2014-12-27 11:49
my_stash.t
769
B
-r--r--r--
2014-12-27 11:49
mydef.t
5.51
KB
-r--r--r--
2014-12-27 11:49
negate.t
4.3
KB
-r--r--r--
2014-12-27 11:49
not.t
3.15
KB
-r--r--r--
2014-12-27 11:49
numconvert.t
8.33
KB
-r--r--r--
2014-12-27 11:49
oct.t
3.58
KB
-r--r--r--
2014-12-27 11:49
or.t
1.79
KB
-r--r--r--
2014-12-27 11:49
ord.t
2.48
KB
-r--r--r--
2014-12-27 11:49
overload_integer.t
506
B
-r--r--r--
2014-12-27 11:49
override.t
4.33
KB
-r--r--r--
2014-12-27 11:49
pack.t
65.34
KB
-r--r--r--
2014-12-27 11:49
packagev.t
5.97
KB
-r--r--r--
2014-12-27 11:49
pos.t
3.59
KB
-r--r--r--
2014-12-27 11:49
postfixderef.t
11.97
KB
-r--r--r--
2014-12-27 11:49
pow.t
2.34
KB
-r--r--r--
2014-12-27 11:49
print.t
692
B
-r--r--r--
2014-12-27 11:49
protowarn.t
1.35
KB
-r--r--r--
2014-12-27 11:49
push.t
3.03
KB
-r--r--r--
2014-12-27 11:49
pwent.t
6.63
KB
-r--r--r--
2014-12-27 11:49
qr.t
2.32
KB
-r--r--r--
2014-12-27 11:49
quotemeta.t
5.61
KB
-r--r--r--
2014-12-27 11:49
rand.t
8.31
KB
-r--r--r--
2014-12-27 11:49
range.t
9.25
KB
-r--r--r--
2014-12-27 11:49
read.t
2.28
KB
-r--r--r--
2014-12-27 11:49
readdir.t
2.09
KB
-r--r--r--
2014-12-27 11:49
readline.t
7.19
KB
-r--r--r--
2014-12-27 11:49
recurse.t
2.73
KB
-r--r--r--
2014-12-27 11:49
ref.t
22.74
KB
-r--r--r--
2014-12-27 11:49
repeat.t
4.8
KB
-r--r--r--
2014-12-27 11:49
require_37033.t
1.18
KB
-r--r--r--
2014-12-27 11:49
require_errors.t
3.68
KB
-r--r--r--
2014-12-27 11:49
reset.t
5.41
KB
-r--r--r--
2014-12-27 11:49
reverse.t
3.01
KB
-r--r--r--
2014-12-27 11:49
rt119311.t
5.58
KB
-r--r--r--
2014-12-27 11:49
runlevel.t
5.28
KB
-r--r--r--
2014-12-27 11:49
select.t
1.03
KB
-r--r--r--
2014-12-27 11:49
setpgrpstack.t
378
B
-r--r--r--
2014-12-27 11:49
sigdispatch.t
4.33
KB
-r--r--r--
2014-12-27 11:49
signatures.t
41.02
KB
-r--r--r--
2014-12-27 11:49
sigsystem.t
1.36
KB
-r--r--r--
2014-12-27 11:49
sleep.t
468
B
-r--r--r--
2014-12-27 11:49
smartkve.t
18.26
KB
-r--r--r--
2014-12-27 11:49
smartmatch.t
10.34
KB
-r--r--r--
2014-12-27 11:49
sort.t
28.4
KB
-r--r--r--
2015-01-10 13:17
splice.t
3.38
KB
-r--r--r--
2014-12-27 11:49
split.t
13.1
KB
-r--r--r--
2014-12-27 11:49
split_unicode.t
2.4
KB
-r--r--r--
2014-12-27 11:49
sprintf.t
28.5
KB
-r--r--r--
2014-12-27 11:49
sprintf2.t
5.49
KB
-r--r--r--
2014-12-27 11:49
srand.t
1.87
KB
-r--r--r--
2014-12-27 11:49
sselect.t
2.67
KB
-r--r--r--
2014-12-27 11:49
stash.t
9.01
KB
-r--r--r--
2014-12-27 11:49
stat.t
17.51
KB
-r--r--r--
2014-12-27 11:49
state.t
9.72
KB
-r--r--r--
2014-12-27 12:15
study.t
2.99
KB
-r--r--r--
2014-12-27 11:49
studytied.t
1.29
KB
-r--r--r--
2014-12-27 11:49
sub.t
6.54
KB
-r--r--r--
2014-12-27 11:49
sub_lval.t
24.2
KB
-r--r--r--
2014-12-27 11:49
substr.t
20.53
KB
-r--r--r--
2014-12-27 11:49
substr_thr.t
56
B
-r--r--r--
2014-12-27 11:49
svleak.pl
6
B
-r--r--r--
2014-12-27 11:49
svleak.t
15.93
KB
-r--r--r--
2015-01-10 12:06
switch.t
28.06
KB
-r--r--r--
2014-12-27 11:49
symbolcache.t
1.06
KB
-r--r--r--
2014-12-27 11:49
sysio.t
5
KB
-r--r--r--
2014-12-27 11:49
taint.t
66.84
KB
-r--r--r--
2014-12-27 12:32
threads-dirh.t
3.47
KB
-r--r--r--
2014-12-27 11:49
threads.t
9.3
KB
-r--r--r--
2014-12-27 11:49
threads_create.pl
42
B
-r--r--r--
2014-12-27 11:49
tie.t
28.34
KB
-r--r--r--
2014-12-27 11:49
tie_fetch_count.t
11.49
KB
-r--r--r--
2014-12-27 11:49
tiearray.t
4.53
KB
-r--r--r--
2014-12-27 11:49
tiehandle.t
5.27
KB
-r--r--r--
2014-12-27 11:49
time.t
7.86
KB
-r--r--r--
2015-01-17 11:51
time_loop.t
378
B
-r--r--r--
2014-12-27 11:49
tr.t
12.99
KB
-r--r--r--
2014-12-27 11:49
undef.t
3.15
KB
-r--r--r--
2014-12-27 11:49
universal.t
8.32
KB
-r--r--r--
2014-12-27 11:49
unlink.t
1.02
KB
-r--r--r--
2014-12-27 11:49
unshift.t
3.17
KB
-r--r--r--
2014-12-27 11:49
upgrade.t
1.15
KB
-r--r--r--
2014-12-27 11:49
utf8cache.t
3.83
KB
-r--r--r--
2014-12-27 11:49
utf8decode.t
7.59
KB
-r--r--r--
2014-12-27 11:49
utf8magic.t
808
B
-r--r--r--
2014-12-27 11:49
utfhash.t
5.33
KB
-r--r--r--
2014-12-27 11:49
utftaint.t
4.46
KB
-r--r--r--
2014-12-27 11:49
vec.t
2.87
KB
-r--r--r--
2014-12-27 11:49
ver.t
8.39
KB
-r--r--r--
2014-12-27 11:49
waitpid.t
973
B
-r--r--r--
2014-12-27 11:49
wantarray.t
874
B
-r--r--r--
2014-12-27 11:49
warn.t
4.15
KB
-r--r--r--
2014-12-27 11:49
while.t
3.81
KB
-r--r--r--
2014-12-27 11:49
write.t
39.99
KB
-r--r--r--
2015-01-24 15:03
yadayada.t
1.67
KB
-r--r--r--
2015-01-15 22:12
Save
Rename
#!./perl -w BEGIN { chdir 't'; @INC = '../lib'; require './test.pl'; } use strict; no warnings 'void'; my $called; my $result = do{ ++$called; 'value';}; is($called, 1, 'do block called'); is($result, 'value', 'do block returns correct value'); unshift @INC, '.'; my $file16 = tempfile(); if (open my $do, '>', $file16) { print $do "isnt(wantarray, undef, 'do in scalar context');\n"; print $do "cmp_ok(wantarray, '==', 0, 'do in scalar context');\n"; close $do or die "Could not close: $!"; } my $a = do $file16; die $@ if $@; my $file17 = tempfile(); if (open my $do, '>', $file17) { print $do "isnt(wantarray, undef, 'do in list context');\n"; print $do "cmp_ok(wantarray, '!=', 0, 'do in list context');\n"; close $do or die "Could not close: $!"; } my @a = do $file17; die $@ if $@; my $file18 = tempfile(); if (open my $do, '>', $file18) { print $do "is(wantarray, undef, 'do in void context');\n"; close $do or die "Could not close: $!"; } do $file18; die $@ if $@; # bug ID 20010920.007 eval qq{ do qq(a file that does not exist); }; is($@, '', "do on a non-existing file, first try"); eval qq{ do uc qq(a file that does not exist); }; is($@, '', "do on a non-existing file, second try"); # 6 must be interpreted as a file name here $! = 0; my $do6 = do 6; my $errno = $1; is($do6, undef, 'do 6 must be interpreted as a filename'); isnt($!, 0, 'and should set $!'); # [perl #19545] my ($u, @t); { no warnings 'uninitialized'; push @t, ($u = (do {} . "This should be pushed.")); } is($#t, 0, "empty do result value" ); my $zok = ''; my $owww = do { 1 if $zok }; is($owww, '', 'last is unless'); $owww = do { 2 unless not $zok }; is($owww, 1, 'last is if not'); $zok = 'swish'; $owww = do { 3 unless $zok }; is($owww, 'swish', 'last is unless'); $owww = do { 4 if not $zok }; is($owww, '', 'last is if not'); # [perl #38809] @a = (7); my $x = sub { do { return do { @a } }; 2 }->(); is($x, 1, 'return do { } receives caller scalar context'); my @x = sub { do { return do { @a } }; 2 }->(); is("@x", "7", 'return do { } receives caller list context'); @a = (7, 8); $x = sub { do { return do { 1; @a } }; 3 }->(); is($x, 2, 'return do { ; } receives caller scalar context'); @x = sub { do { return do { 1; @a } }; 3 }->(); is("@x", "7 8", 'return do { ; } receives caller list context'); my @b = (11 .. 15); $x = sub { do { return do { 1; @a, @b } }; 3 }->(); is($x, 5, 'return do { ; , } receives caller scalar context'); @x = sub { do { return do { 1; @a, @b } }; 3 }->(); is("@x", "7 8 11 12 13 14 15", 'return do { ; , } receives caller list context'); $x = sub { do { return do { 1; @a }, do { 2; @b } }; 3 }->(); is($x, 5, 'return do { ; }, do { ; } receives caller scalar context'); @x = sub { do { return do { 1; @a }, do { 2; @b } }; 3 }->(); is("@x", "7 8 11 12 13 14 15", 'return do { ; }, do { ; } receives caller list context'); @a = (7, 8, 9); $x = sub { do { do { 1; return @a } }; 4 }->(); is($x, 3, 'do { return } receives caller scalar context'); @x = sub { do { do { 1; return @a } }; 4 }->(); is("@x", "7 8 9", 'do { return } receives caller list context'); @a = (7, 8, 9, 10); $x = sub { do { return do { 1; do { 2; @a } } }; 5 }->(); is($x, 4, 'return do { do { ; } } receives caller scalar context'); @x = sub { do { return do { 1; do { 2; @a } } }; 5 }->(); is("@x", "7 8 9 10", 'return do { do { ; } } receives caller list context'); # More tests about context propagation below return() @a = (11, 12); @b = (21, 22, 23); my $test_code = sub { my ($x, $y) = @_; if ($x) { return $y ? do { my $z; @a } : do { my $z; @b }; } else { return ( do { my $z; @a }, (do { my$z; @b }) x $y ); } 'xxx'; }; $x = $test_code->(1, 1); is($x, 2, 'return $y ? do { } : do { } - scalar context 1'); $x = $test_code->(1, 0); is($x, 3, 'return $y ? do { } : do { } - scalar context 2'); @x = $test_code->(1, 1); is("@x", '11 12', 'return $y ? do { } : do { } - list context 1'); @x = $test_code->(1, 0); is("@x", '21 22 23', 'return $y ? do { } : do { } - list context 2'); $x = $test_code->(0, 0); is($x, "", 'return (do { }, (do { }) x ...) - scalar context 1'); $x = $test_code->(0, 1); is($x, 3, 'return (do { }, (do { }) x ...) - scalar context 2'); @x = $test_code->(0, 0); is("@x", '11 12', 'return (do { }, (do { }) x ...) - list context 1'); @x = $test_code->(0, 1); is("@x", '11 12 21 22 23', 'return (do { }, (do { }) x ...) - list context 2'); $test_code = sub { my ($x, $y) = @_; if ($x) { return do { if ($y == 0) { my $z; @a; } elsif ($y == 1) { my $z; @b; } else { my $z; (wantarray ? reverse(@a) : '99'); } }; } 'xxx'; }; $x = $test_code->(1, 0); is($x, 2, 'return do { if () { } elsif () { } else { } } - scalar 1'); $x = $test_code->(1, 1); is($x, 3, 'return do { if () { } elsif () { } else { } } - scalar 2'); $x = $test_code->(1, 2); is($x, 99, 'return do { if () { } elsif () { } else { } } - scalar 3'); @x = $test_code->(1, 0); is("@x", '11 12', 'return do { if () { } elsif () { } else { } } - list 1'); @x = $test_code->(1, 1); is("@x", '21 22 23', 'return do { if () { } elsif () { } else { } } - list 2'); @x = $test_code->(1, 2); is("@x", '12 11', 'return do { if () { } elsif () { } else { } } - list 3'); # Do blocks created by constant folding # [perl #68108] $x = sub { if (1) { 20 } }->(); is($x, 20, 'if (1) { $x } receives caller scalar context'); @a = (21 .. 23); $x = sub { if (1) { @a } }->(); is($x, 3, 'if (1) { @a } receives caller scalar context'); @x = sub { if (1) { @a } }->(); is("@x", "21 22 23", 'if (1) { @a } receives caller list context'); $x = sub { if (1) { 0; 20 } }->(); is($x, 20, 'if (1) { ...; $x } receives caller scalar context'); @a = (24 .. 27); $x = sub { if (1) { 0; @a } }->(); is($x, 4, 'if (1) { ...; @a } receives caller scalar context'); @x = sub { if (1) { 0; @a } }->(); is("@x", "24 25 26 27", 'if (1) { ...; @a } receives caller list context'); $x = sub { if (1) { 0; 20 } else{} }->(); is($x, 20, 'if (1) { ...; $x } else{} receives caller scalar context'); @a = (24 .. 27); $x = sub { if (1) { 0; @a } else{} }->(); is($x, 4, 'if (1) { ...; @a } else{} receives caller scalar context'); @x = sub { if (1) { 0; @a } else{} }->(); is("@x", "24 25 26 27", 'if (1) { ...; @a } else{} receives caller list context'); $x = sub { if (0){} else { 0; 20 } }->(); is($x, 20, 'if (0){} else { ...; $x } receives caller scalar context'); @a = (24 .. 27); $x = sub { if (0){} else { 0; @a } }->(); is($x, 4, 'if (0){} else { ...; @a } receives caller scalar context'); @x = sub { if (0){} else { 0; @a } }->(); is("@x", "24 25 26 27", 'if (0){} else { ...; @a } receives caller list context'); # [rt.cpan.org #72767] do "string" should not propagate warning hints SKIP: { skip_if_miniperl("no in-memory files under miniperl", 1); my $code = '42; 1'; # Based on Eval::WithLexicals::_eval_do local @INC = (sub { if ($_[1] eq '/eval_do') { open my $fh, '<', \$code; $fh; } else { (); } }, @INC); local $^W; use warnings; my $w; local $SIG{__WARN__} = sub { warn shift; ++$w }; do '/eval_do' or die $@; is($w, undef, 'do STRING does not propagate warning hints'); } # RT#113730 - $@ should be cleared on IO error. { $@ = "should not see"; $! = 0; my $rv = do("some nonexistent file"); my $saved_error = $@; my $saved_errno = $!; ok(!$rv, "do returns false on io errror"); ok(!$saved_error, "\$\@ not set on io error"); ok($saved_errno, "\$! set on io error"); } # do subname should not be do "subname" { my $called; sub fungi { $called .= "fungible" } $@ = "scrimptious scrobblings"; do fungi; is $called, "fungible", "do-file does not force bareword"; isnt $@, "scrimptious scrobblings", "It was interpreted as do-file"; } # do CORE () has always been do-file { my $called; sub CORE { $called .= "fungible" } $@ = "scromptious scrimblings"; do CORE(); is $called, "fungible", "do CORE() calls &CORE"; isnt $@, "scromptious scrimblings", "It was interpreted as do-file"; } # do subname() and $subname() are no longer allowed { sub subname { fail('do subname('. ($_[0] || '') .') called') }; my $subref = sub { fail('do $subref('. ($_[0] || '') .') called') }; foreach my $mode (qw(subname("arg") subname() $subref("arg") $subref())) { eval "do $mode"; like $@, qr/\Asyntax error/, "do $mode is syntax error"; } } done_testing();