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 BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; eval { my $q = pack "q", 0 }; skip_all('no 64-bit types') if $@; } # This could use many more tests. # so that using > 0xfffffff constants and # 32+ bit integers don't cause noise use warnings; no warnings qw(overflow portable); use Config; # as 6 * 6 = 36, the last digit of 6**n will always be six. Hence the last # digit of 16**n will always be six. Hence 16**n - 1 will always end in 5. # Assumption is that UVs will always be a multiple of 4 bits long. my $UV_max = ~0; die "UV_max eq '$UV_max', doesn't end in 5; your UV isn't 4n bits long :-(." unless $UV_max =~ /5$/; my $UV_max_less3 = $UV_max - 3; my $maths_preserves_UVs = $UV_max_less3 =~ /^\d+2$/; # 5 - 3 is 2. if ($maths_preserves_UVs) { print "# This perl's maths preserves all bits of a UV.\n"; } else { print "# This perl's maths does not preserve all bits of a UV.\n"; } my $q = 12345678901; my $r = 23456789012; my $f = 0xffffffff; my $x; my $y; $x = unpack "q", pack "q", $q; cmp_ok($x, '==', $q); cmp_ok($x, '>', $f); $x = sprintf("%lld", 12345678901); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%lld", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%Ld", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%qd", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%llx", $q); cmp_ok(hex $x, '==', 0x2dfdc1c35); cmp_ok(hex $x, '>', $f); $x = sprintf("%Lx", $q); cmp_ok(hex $x, '==', 0x2dfdc1c35); cmp_ok(hex $x, '>', $f); $x = sprintf("%qx", $q); cmp_ok(hex $x, '==', 0x2dfdc1c35); cmp_ok(hex $x, '>', $f); $x = sprintf("%llo", $q); cmp_ok(oct "0$x", '==', 0133767016065); cmp_ok(oct $x, '>', $f); $x = sprintf("%Lo", $q); cmp_ok(oct "0$x", '==', 0133767016065); cmp_ok(oct $x, '>', $f); $x = sprintf("%qo", $q); cmp_ok(oct "0$x", '==', 0133767016065); cmp_ok(oct $x, '>', $f); $x = sprintf("%llb", $q); cmp_ok(oct "0b$x", '==', 0b1011011111110111000001110000110101); cmp_ok(oct "0b$x", '>', $f); $x = sprintf("%Lb", $q); cmp_ok(oct "0b$x", '==', 0b1011011111110111000001110000110101); cmp_ok(oct "0b$x", '>', $f); $x = sprintf("%qb", $q); cmp_ok(oct "0b$x", '==', 0b1011011111110111000001110000110101); cmp_ok(oct "0b$x", '>', $f); $x = sprintf("%llu", $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%Lu", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%qu", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%D", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%U", $q); cmp_ok($x, '==', $q); is($x, $q); cmp_ok($x, '>', $f); $x = sprintf("%O", $q); cmp_ok(oct $x, '==', $q); cmp_ok(oct $x, '>', $f); $x = $q + $r; cmp_ok($x, '==', 35802467913); cmp_ok($x, '>', $f); $x = $q - $r; cmp_ok($x, '==', -11111110111); cmp_ok(-$x, '>', $f); SKIP: { # Unicos has imprecise doubles (14 decimal digits or so), # especially if operating near the UV/IV limits the low-order bits # become mangled even by simple arithmetic operations. skip('too imprecise numbers on unicos') if $^O eq 'unicos'; $x = $q * 1234567; cmp_ok($x, '==', 15241567763770867); cmp_ok($x, '>', $f); $x /= 1234567; cmp_ok($x, '==', $q); cmp_ok($x, '>', $f); $x = 98765432109 % 12345678901; cmp_ok($x, '==', 901); # The following 12 tests adapted from op/inc. $a = 9223372036854775807; $c = $a++; cmp_ok($a, '==', 9223372036854775808); $a = 9223372036854775807; $c = ++$a; cmp_ok($a, '==', 9223372036854775808); cmp_ok($c, '==', $a); $a = 9223372036854775807; $c = $a + 1; cmp_ok($a, '==', 9223372036854775807); cmp_ok($c, '==', 9223372036854775808); $a = -9223372036854775808; { no warnings 'imprecision'; $c = $a--; } cmp_ok($a, '==', -9223372036854775809); cmp_ok($c, '==', -9223372036854775808); $a = -9223372036854775808; { no warnings 'imprecision'; $c = --$a; } cmp_ok($a, '==', -9223372036854775809); cmp_ok($c, '==', $a); $a = -9223372036854775808; $c = $a - 1; cmp_ok($a, '==', -9223372036854775808); cmp_ok($c, '==', -9223372036854775809); $a = 9223372036854775808; $a = -$a; { no warnings 'imprecision'; $c = $a--; } cmp_ok($a, '==', -9223372036854775809); cmp_ok($c, '==', -9223372036854775808); $a = 9223372036854775808; $a = -$a; { no warnings 'imprecision'; $c = --$a; } cmp_ok($a, '==', -9223372036854775809); cmp_ok($c, '==', $a); $a = 9223372036854775808; $a = -$a; $c = $a - 1; cmp_ok($a, '==', -9223372036854775808); cmp_ok($c, '==', -9223372036854775809); $a = 9223372036854775808; $b = -$a; { no warnings 'imprecision'; $c = $b--; } cmp_ok($b, '==', -$a-1); cmp_ok($c, '==', -$a); $a = 9223372036854775808; $b = -$a; { no warnings 'imprecision'; $c = --$b; } cmp_ok($b, '==', -$a-1); cmp_ok($c, '==', $b); $a = 9223372036854775808; $b = -$a; $b = $b - 1; cmp_ok($b, '==', -(++$a)); } $x = ''; cmp_ok((vec($x, 1, 64) = $q), '==', $q); cmp_ok(vec($x, 1, 64), '==', $q); cmp_ok(vec($x, 1, 64), '>', $f); cmp_ok(vec($x, 0, 64), '==', 0); cmp_ok(vec($x, 2, 64), '==', 0); cmp_ok(~0, '==', 0xffffffffffffffff); cmp_ok((0xffffffff<<32), '==', 0xffffffff00000000); cmp_ok(((0xffffffff)<<32)>>32, '==', 0xffffffff); cmp_ok(1<<63, '==', 0x8000000000000000); is((sprintf "%#Vx", 1<<63), '0x8000000000000000'); cmp_ok((0x8000000000000000 | 1), '==', 0x8000000000000001); cmp_ok((0xf000000000000000 & 0x8000000000000000), '==', 0x8000000000000000); cmp_ok((0xf000000000000000 ^ 0xfffffffffffffff0), '==', 0x0ffffffffffffff0); is((sprintf "%b", ~0), '1111111111111111111111111111111111111111111111111111111111111111'); is((sprintf "%64b", ~0), '1111111111111111111111111111111111111111111111111111111111111111'); is((sprintf "%d", ~0>>1),'9223372036854775807'); is((sprintf "%u", ~0),'18446744073709551615'); # If the 53..55 fail you have problems in the parser's string->int conversion, # see toke.c:scan_num(). $q = -9223372036854775808; is("$q","-9223372036854775808"); $q = 9223372036854775807; is("$q","9223372036854775807"); $q = 18446744073709551615; is("$q","18446744073709551615"); # Test that sv_2nv then sv_2iv is the same as sv_2iv direct # fails if whatever Atol is defined as can't actually cope with >32 bits. my $num = 4294967297; my $string = "4294967297"; { use integer; $num += 0; $string += 0; } is($num, $string); # Test that sv_2nv then sv_2uv is the same as sv_2uv direct $num = 4294967297; $string = "4294967297"; $num &= 0; $string &= 0; is($num, $string); $q = "18446744073709551616e0"; $q += 0; isnt($q, "18446744073709551615"); # 0xFFFFFFFFFFFFFFFF == 1 * 3 * 5 * 17 * 257 * 641 * 65537 * 6700417' $q = 0xFFFFFFFFFFFFFFFF / 3; cmp_ok($q, '==', 0x5555555555555555); SKIP: { skip("Maths does not preserve UVs", 2) unless $maths_preserves_UVs; cmp_ok($q, '!=', 0x5555555555555556); skip("All UV division is precise as NVs, so is done as NVs", 1) if $Config{d_nv_preserves_uv}; unlike($q, qr/[e.]/); } $q = 0xFFFFFFFFFFFFFFFF % 0x5555555555555555; cmp_ok($q, '==', 0); $q = 0xFFFFFFFFFFFFFFFF % 0xFFFFFFFFFFFFFFF0; cmp_ok($q, '==', 0xF); $q = 0x8000000000000000 % 9223372036854775807; cmp_ok($q, '==', 1); $q = 0x8000000000000000 % -9223372036854775807; cmp_ok($q, '==', -9223372036854775806); { use integer; $q = hex "0x123456789abcdef0"; cmp_ok($q, '==', 0x123456789abcdef0); cmp_ok($q, '!=', 0x123456789abcdef1); unlike($q, qr/[e.]/, 'Should not be floating point'); $q = oct "0x123456789abcdef0"; cmp_ok($q, '==', 0x123456789abcdef0); cmp_ok($q, '!=', 0x123456789abcdef1); unlike($q, qr/[e.]/, 'Should not be floating point'); $q = oct "765432176543217654321"; cmp_ok($q, '==', 0765432176543217654321); cmp_ok($q, '!=', 0765432176543217654322); unlike($q, qr/[e.]/, 'Should not be floating point'); $q = oct "0b0101010101010101010101010101010101010101010101010101010101010101"; cmp_ok($q, '==', 0x5555555555555555); cmp_ok($q, '!=', 0x5555555555555556); unlike($q, qr/[e.]/, 'Should not be floating point'); } done_testing();