| line |
!l |
l&&!r |
l&&r |
condition |
|
483
|
546 |
0 |
0 |
$fx =~ /x/ and $fx =~ m[^[ \(\)\.\d\+\-\*/x\=]+$] |
|
500
|
47 |
108 |
21 |
$n > 3 and $x[$n + 1] == $x[$n] |
|
|
155 |
10 |
11 |
$n > 3 and $x[$n + 1] == $x[$n] and $x[$n] == $x[$n - 1] |
|
501
|
47 |
118 |
0 |
$n > 3 and ref $x[$n + 1] eq 'Math::BigFloat' |
|
|
165 |
0 |
0 |
$n > 3 and ref $x[$n + 1] eq 'Math::BigFloat' and substr($x[$n + 1], 0, $ds) eq substr($x[$n], 0, $ds) |
|
502
|
162 |
2 |
1 |
$sec > 0 and time_fp() - $time_start > $sec |
|
1228
|
0 |
0 |
82 |
$r = &$types($_) and @$r |
|
|
0 |
0 |
82 |
$r = &$types($_) and @$r and $$ru = $_ |
|
1236
|
37 |
4 |
0 |
$type eq 'money' and time >= $conv_prepare_money_time + $Currency_rates_expire |
|
1241
|
9 |
19 |
1 |
$cf > 0 && $ct < 0 |
|
|
19 |
0 |
9 |
$cf < 0 && $ct > 0 |
|
1374
|
1 |
0 |
914 |
$r =~ s/(C?)([DM])|(X?)([LCDM])|(I?)([VXLCDM])|(I)|(.)/croak("roman2int: Invalid number $r") if $8;
$n += $c{$2 or $4 or $6 or $7} - $c{$1 or $3 or $5 or ''};
'';/eg && $n |
|
1592
|
0 |
0 |
0 |
not $l || recursed() and $dec > 6 |
|
|
0 |
0 |
0 |
not $l || recursed() and $dec > 6 and substr $n, -1 |
|
|
0 |
0 |
0 |
not $l || recursed() and $dec > 6 and substr $n, -1 and substr($n, -1)-- |
|
1631
|
1 |
0 |
24 |
$test >= $fom && $test <= $tom |
|
|
0 |
0 |
2 |
$test >= $tom && $test <= $fom |
|
1958
|
1 |
7086 |
0 |
defined $_ and !defined($min) || $_ < $min |
|
1959
|
0 |
3 |
0 |
defined $_ and !defined($min) || $_ lt $min |
|
1960
|
1 |
7068 |
0 |
defined $_ and !defined($max) || $_ > $max |
|
1961
|
0 |
3 |
0 |
defined $_ and !defined($max) || $_ gt $max |
|
1990
|
14 |
2 |
0 |
ref $_ ne 'ARRAY' and croak('ERROR: zip should have arrayrefs as arguments') |
|
1991
|
3 |
2 |
0 |
@{$t[$_];} != @{$t[0];} and croak('ERROR: zip should have equal sized arrays') |
|
2021
|
7666 |
901 |
2348 |
not defined $Pushsort_cmpsub and @$ar + @_ < 100 |
|
2087
|
7927 |
6676 |
0 |
$cmpsub and ref $cmpsub ne 'CODE' |
|
2098
|
45898 |
45439 |
37332 |
not $cmpsub and $search < $middle_value |
|
|
45439 |
44165 |
1733 |
$cmpsub and &$cmpsub($search, $middle_value) < 0 |
|
|
44165 |
7031 |
38408 |
not $cmpsub and $search > $middle_value |
|
|
7031 |
6 |
44159 |
$cmpsub and &$cmpsub($search, $middle_value) > 0 |
|
2100
|
37589 |
1476 |
0 |
$middle == $max and $min != $max |
|
2106
|
68984 |
6078 |
7505 |
$middle == $min and $max != $min |
|
2193
|
53 |
1 |
0 |
ref $_ ne 'ARRAY' and croak() |
|
2199
|
0 |
272 |
0 |
++$ant and $ant > 100 |
|
2230
|
99 |
1098 |
0 |
not $cmpsub and $a->[$_] > $$a[$_ + 1] |
|
|
1098 |
99 |
0 |
$cmpsub and &$cmpsub($a->[$_], $$a[$_ + 1]) > 0 |
|
2303
|
4 |
15146 |
0 |
defined $_ and $sum += $_ |
|
2324
|
878 |
1 |
1 |
@_ == 1 and ref $_[0] eq 'ARRAY' |
|
2382
|
0 |
8 |
5 |
@_ > 0 and not ref $_[0] |
|
2624
|
11501 |
0 |
6501 |
$_ > $max and $max = $_ |
|
|
11501 |
0 |
0 |
$_ < 0 and croak('negative weight') |
|
2811
|
1020 |
0 |
0 |
@_ == 1 and ref $_[0] eq 'ARRAY' |
|
2878
|
619 |
62 |
2300 |
/^[a-z\d].*[a-z\d]$/i and /[a-z]/ |
|
|
681 |
62 |
2238 |
/^[a-z\d].*[a-z\d]$/i and /[a-z]/ and /[A-Z]/ |
|
|
124 |
608 |
1630 |
/^[a-z\d].*[a-z\d]$/i and /[a-z]/ and /[A-Z]/ and /\d/ |
|
3464
|
2 |
0 |
0 |
not defined $query and $ENV{'REQUEST_METHOD'} eq 'POST' |
|
3647
|
0 |
0 |
4 |
open WRITEFILE, '>', $filename and binmode WRITEFILE |
|
3648
|
0 |
4 |
0 |
defined $text && ref $text |
|
3824
|
1 |
0 |
1 |
defined $1 && length $1 |
|
3845
|
0 |
2 |
0 |
-f $file and -e $file |
|
3887
|
0 |
0 |
1 |
chmod $mode, $_ and utime $atime, $mtime, $_ |
|
|
0 |
0 |
1 |
chmod $mode, $_ and utime $atime, $mtime, $_ and chown $uid, $gid, $_ |
|
3924
|
0 |
0 |
0 |
($dd) = $d =~ m[^(.+)/+([^/]+)$] and makedir($dd, $p) |
|
|
0 |
0 |
0 |
($dd) = $d =~ m[^(.+)/+([^/]+)$] and makedir($dd, $p) and mkdir $d, $p |
|
4020
|
33 |
0 |
12 |
$v =~ /^\{[^\}]*$/ and @l |
|
4224
|
0 |
0 |
0 |
@_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/ |
|
4232
|
0 |
0 |
0 |
@_ == 1 and $_[0] =~ /^(\d{4})(\d\d)(\d\d)$/ |
|
4252
|
3 |
37 |
0 |
@_ > 1 and not defined $_[1] |
|
4257
|
1 |
0 |
1 |
$_[0] =~ /$Re_isnum/ and @lt = localtime $_[0] |
|
4261
|
2 |
3 |
34 |
@_ >= 2 and $format =~ /^[\d+\:\-\.]+$/ |
|
4480
|
3 |
2000 |
1 |
@$a > 1 and $$a[-2][0] == $$a[-1][0] |
|
4564
|
0 |
0 |
0 |
not $l and 1000 < 0 + %ldist_cache |
|
4593
|
23 |
0 |
15 |
defined $_[0] and length $_[0] |
|
5028
|
2 |
0 |
0 |
$code and @_ < 6 |
|
5178
|
0 |
3 |
0 |
push @k, shift @ars and push @v, shift @ars |
|
5410
|
120 |
0 |
0 |
/^\%/ and defined $opt_pro |
|
5444
|
96 |
0 |
14 |
$c and not "$a[$_]$b[$_]" =~ /[iI][nN][fF]|\376/i |
|
5519
|
210 |
0 |
0 |
$nodup_rad and $i > 0 |
|
|
210 |
0 |
0 |
$nodup_rad and $i > 0 and $$tab[$i][$j] eq $$tab[$i - 1][$j] || ($nodup_rad = 0) |
|
5527
|
33 |
8 |
169 |
not $hode and length $celle > 0 |
|
5535
|
1 |
146 |
89 |
$_ and not /^\s*[\-\+]?(\d+|\d*\.\d+)\s*\%?$/ |
|
|
147 |
52 |
37 |
$_ and not /^\s*[\-\+]?(\d+|\d*\.\d+)\s*\%?$/ and not $hode |
|
5537
|
185 |
0 |
25 |
$hoeyde > 1 and not $ikke_space |
|
5539
|
23 |
1 |
1 |
$i > 1 and $hoeyde[$i - 1] == 1 |
|
5568
|
210 |
0 |
0 |
$fjern_tom and not $ikketom[$y] |
|
5571
|
210 |
0 |
0 |
!$overskrift_forrige && $nodup && $nodup[$x][$y] |
|
5578
|
26 |
49 |
186 |
length $txt > 0 and not $venstre[$y] |
|
|
75 |
186 |
0 |
length $txt > 0 and not $venstre[$y] and $x > 0 || $ikke_hodestrek |
|
5598
|
28 |
0 |
0 |
$x % $pagesize == 0 || $nodup > 0 && !$nodup[$x + 1][$nodup - 1] and $x + 1 < @$tab |
|
|
0 |
0 |
0 |
$x % $pagesize == 0 || $nodup > 0 && !$nodup[$x + 1][$nodup - 1] and $x + 1 < @$tab and not $ikke_hodestrek |
|
5600
|
33 |
0 |
0 |
$fjern_tom and not $ikketom[$y] |
|
5903
|
0 |
0 |
0 |
$p > 0 and not substr($s, $p - 1, 2) =~ /^\n/ |
|
5925
|
115 |
1 |
3 |
$m and $c ne '{' |
|
6000
|
0 |
16 |
1 |
$inp and $bf =~ /,/ |
|
6354
|
21 |
0 |
2 |
@_ == 2 and 0 < $_[0] |
|
|
21 |
0 |
2 |
@_ == 2 and 0 < $_[0] and $_[0] < 1 |
|
|
0 |
0 |
2 |
@_ == 2 and 0 < $_[0] and $_[0] < 1 and $_[1] > 1 |
|
6355
|
21 |
0 |
0 |
@_ == 2 and 0 < $_[1] |
|
|
21 |
0 |
0 |
@_ == 2 and 0 < $_[1] and $_[1] < 1 |
|
|
0 |
0 |
0 |
@_ == 2 and 0 < $_[1] and $_[1] < 1 and $_[0] > 1 |
|
6362
|
12 |
8 |
0 |
exists $arg{'keys'} and ref $arg{'keys'} ne 'ARRAY' |
|
6364
|
20 |
0 |
0 |
$arg{'adaptive'} and $arg{'counting_bits'} > 1 |
|
6417
|
0 |
0 |
0 |
$bf->{'overflow'}{$_} += $bf2->{'overflow'}{$_} and keys %{$$bf{'overflow'};} > 10 |
|
|
0 |
0 |
0 |
$bf->{'overflow'}{$_} += $bf2->{'overflow'}{$_} and keys %{$$bf{'overflow'};} > 10 and croak("Too many overflows, concider doubling counting_bits from $cb to " . 2 * $cb) |
|
6433
|
10 |
0 |
1 |
@keys == 1 && ref $keys[0] eq 'ARRAY' |
|
6437
|
15083 |
1 |
0 |
$bf->{'key_count'} >= $n and croak("Exceeded filter capacity $n") |
|
6439
|
3973 |
0 |
11110 |
$cb == 1 and not $adaptive |
|
6451
|
24 |
1 |
1 |
$bf->{'overflow'}{$pos}++ and keys %{$$bf{'overflow'};} > 10 |
|
6463
|
0 |
0 |
0 |
$_ >= $k - 1 and $bit == 0 |
|
6474
|
5 |
0 |
0 |
@keys == 1 && ref $keys[0] eq 'ARRAY' |
|
6493
|
0 |
0 |
0 |
$_ > $k - 1 and $bit == 1 |
|
6494
|
0 |
0 |
0 |
$_ <= $k - 1 and $bit == 0 |
|
6506
|
0 |
0 |
8 |
@keys == 1 && ref $keys[0] eq 'ARRAY' |
|
6519
|
0 |
0 |
1 |
@keys == 1 && ref $keys[0] eq 'ARRAY' |
|
6532
|
1 |
1 |
1 |
@keys == 1 && ref $keys[0] eq 'ARRAY' |
|
6537
|
501 |
0 |
0 |
$bf->{'key_count'} == 0 and croak('Deleted all and then some') |
|
6546
|
585 |
0 |
918 |
$c == 1 and ++$ones |
|
|
585 |
918 |
0 |
$c == 1 and ++$ones and $bf->{'overflow'}{$pos} |
|
6575
|
0 |
0 |
0 |
0 < $p and $p < 1 |
|
6576
|
0 |
0 |
0 |
$m = -1 * $_ * $n / log(1 - $p ** (1 / $_)) and !defined($flen) || $m < $flen |
|
|
0 |
0 |
0 |
$m = -1 * $_ * $n / log(1 - $p ** (1 / $_)) and !defined($flen) || $m < $flen and ($flen, $k) = ($m, $_) |
|
6617
|
0 |
0 |
0 |
-e $f and -f $f ? 'file' : (-d $f ? 'dir' : (-l $f ? 'symlink' : (-p $f ? 'pipe' : (-S $f ? 'socket' : (-b $f ? 'blockfile' : (-c $f ? 'charfile' : (-t $f ? 'ttyfile' : ''))))))) |
|
6700
|
0 |
0 |
0 |
$rexcl and $File::Find::name =~ /$rexcl/ |
| line |
l |
!l |
condition |
|
1233
|
0 |
0 |
join(',', @{$types[0];}) || '?' |
|
|
0 |
0 |
join(',', @{$types[1];}) || '?' |
|
1847
|
1 |
1 |
$_[1] || 3 |
|
2160
|
5 |
5 |
$cmpsub ||= sub {
$_[0] <=> $_[1];
}
|
|
2619
|
1 |
15000 |
$to || 1 |
|
2625
|
1 |
4000 |
$to || 1 |
|
2881
|
58 |
2 |
$len ||= 8 |
|
2882
|
57 |
3 |
$num ||= 1 |
|
2883
|
54 |
6 |
$chars ||= 'A-Za-z0-9,-./&%_!' |
|
2884
|
0 |
6 |
$req[0] ||= \&Acme::Tools::pwgendefreq |
|
3234
|
3 |
14 |
$dict || '' |
|
3275
|
0 |
5 |
$dict || '' |
|
3579
|
1 |
6 |
$r ||= sub {
s/&(#160|nbsp);/ /g;
s/&/&/g;
s/^\s*(.*?)\s*$/$1/s;
s/(\d) (\d)/$1$2/g if /^[\d \.\,]+$/;
}
|
|
3844
|
1 |
1 |
$times ||= 3 |
|
4017
|
3 |
9 |
$hr->{$1} ||= {} |
|
4345
|
4 |
0 |
$lt[2] || 12 |
|
4348
|
2 |
1 |
repl($time, qr/^[^\.]+/) || 0 |
|
4477
|
2001 |
3 |
$Eta{$id} ||= [] |
|
5375
|
0 |
0 |
$opt{'prosent'} || 0 |
|
5376
|
0 |
4 |
$opt{'sortsub'} || \&Acme::Tools::_sortsub |
|
5503
|
0 |
5 |
$o{'nodup'} || 0 |
|
5518
|
177 |
33 |
$bredde[$j] ||= 0 |
|
5519
|
0 |
0 |
$$tab[$i][$j] eq $$tab[$i - 1][$j] || ($nodup_rad = 0) |
|
5577
|
235 |
26 |
shift @celle || '' |
|
5708
|
0 |
0 |
shift() || 0 |
|
5713
|
1036 |
91 |
$level || 0 |
|
5893
|
94 |
27 |
$p || 0 |
|
6481
|
78165 |
11612 |
vec $bf->{'filter'}, $h[$_] % $m, $cb or $match = 0 |
|
|
78165 |
11612 |
vec $bf->{'filter'}, $h[$_] % $m, $cb or $match = 0 or last |
|
6511
|
12919 |
2303 |
vec $bf->{'filter'}, $h[$_] % $m, $cb or $match = 0 |
|
|
12919 |
2303 |
vec $bf->{'filter'}, $h[$_] % $m, $cb or $match = 0 or last |
|
6524
|
3000 |
0 |
vec $bf->{'filter'}, $h[$_] % $m, $cb or $match = 0 |
|
|
3000 |
0 |
vec $bf->{'filter'}, $h[$_] % $m, $cb or $match = 0 or last |
|
6594
|
0 |
0 |
shift() || '/var/www/html/currency-rates' |
|
6595
|
0 |
0 |
-x $_ or die |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
470
|
0 |
0 |
13 |
$iters < 0 or $sec < 0 |
|
1204
|
0 |
0 |
0 |
not -e $fn or time - (stat $fn)[9] >= $Currency_rates_expire |
|
1592
|
0 |
0 |
0 |
$l || recursed() |
|
1655
|
2 |
0 |
127 |
@_ != 3 or not defined $min |
|
|
2 |
1 |
126 |
@_ != 3 or not defined $min or not defined $max |
|
|
1 |
0 |
126 |
@_ != 3 or not defined $min or not defined $max or not defined $val |
|
|
1 |
0 |
126 |
@_ != 3 or not defined $min or not defined $max or not defined $val or $min > $max |
|
1740
|
2 |
0 |
2 |
@_ < 3 or not length $p |
|
1747
|
2 |
0 |
3 |
@_ < 3 or not length $p |
|
1755
|
4 |
0 |
7 |
@_ < 3 or not length $p |
|
1958
|
33 |
57 |
6996 |
!defined($min) || $_ < $min |
|
1959
|
1 |
1 |
1 |
!defined($min) || $_ lt $min |
|
1960
|
24 |
24 |
7020 |
!defined($max) || $_ > $max |
|
1961
|
1 |
1 |
1 |
!defined($max) || $_ gt $max |
|
2098
|
37332 |
0 |
91337 |
not $cmpsub and $search < $middle_value or $cmpsub and &$cmpsub($search, $middle_value) < 0 |
|
|
38408 |
0 |
51196 |
not $cmpsub and $search > $middle_value or $cmpsub and &$cmpsub($search, $middle_value) > 0 |
|
2200
|
2 |
0 |
270 |
$arefs[0][$_] ne $ar->[$_] or $arefs[0][$_] != $ar->[$_] |
|
2230
|
0 |
0 |
1197 |
not $cmpsub and $a->[$_] > $$a[$_ + 1] or $cmpsub and &$cmpsub($a->[$_], $$a[$_ + 1]) > 0 |
|
2569
|
0 |
0 |
9 |
$_ < 0 or $_ > 100 |
|
2624
|
6501 |
11501 |
0 |
$_ > $max and $max = $_ or $_ < 0 and croak('negative weight') |
|
2890
|
1 |
1 |
12270 |
++$Pwgen_trials >= $Pwgen_max_trials or time_fp() - $t > $Pwgen_max_sec * $num |
|
3014
|
3 |
0 |
3 |
$notme{$_} || $seen{$_}++ |
|
3385
|
1 |
1 |
0 |
$IPADDR_memo{$ipnr} ||= gethostbyaddr(pack('C4', split(/\./, $ipnr, 0)), 2) |
|
3572
|
1 |
1 |
7 |
1 > @_ or @_ > 3 |
|
3924
|
0 |
0 |
0 |
$MAKEDIR{$d} or -d $d |
|
|
0 |
0 |
0 |
$MAKEDIR{$d} or -d $d or mkdir $d, $p |
|
|
0 |
0 |
0 |
$MAKEDIR{$d} or -d $d or mkdir $d, $p or ($dd) = $d =~ m[^(.+)/+([^/]+)$] and makedir($dd, $p) and mkdir $d, $p |
|
4022
|
27 |
0 |
6 |
length $section or $Read_conf_empty_section |
|
4226
|
0 |
0 |
0 |
$m < 1 or $m > 12 |
|
|
0 |
0 |
0 |
$m < 1 or $m > 12 or $d < 1 |
|
|
0 |
0 |
0 |
$y % 4 || $y % 100 == 0 && $y % 400 |
|
|
0 |
0 |
0 |
$m < 1 or $m > 12 or $d < 1 or $d > (31, $y % 4 || $y % 100 == 0 && $y % 400 ? 28 : 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$m - 1] |
|
4385
|
182 |
0 |
4818 |
$L > 28 || ($L > 27 ? 1 - (21 - $Y % 19) / 11 : 0) |
|
4476
|
2003 |
1 |
0 |
$time_fp ||= time_fp() |
|
4566
|
0 |
0 |
0 |
$ldist_cache{join $;, $s, $t} ||= do {
my($s1, $t1) = (substr($s, 1), substr($t, 1));
substr($s, 0, 1) eq substr($t, 0, 1) ? ldist($s1, $t1) : 1 + min(ldist($s1, $t1, 1 + $l), ldist($s, $t1, 1 + $l), ldist($s1, $t, 1 + $l))
} |
|
4593
|
15 |
1 |
22 |
defined $_[0] and length $_[0] or @_ == 1 |
|
4645
|
0 |
4 |
0 |
shift() eq $uttrykk and return shift() or shift() |
|
4646
|
0 |
0 |
0 |
not defined shift() and return shift() or shift() |
|
4653
|
0 |
2 |
0 |
shift() == $uttrykk and return shift() or shift() |
|
4654
|
0 |
0 |
0 |
not defined shift() and return shift() or shift() |
|
4904
|
0 |
0 |
4 |
@_ != 3 or $jump == 0 |
|
5377
|
0 |
4 |
0 |
$opt{'sortsub_bortover'} || $sortsub |
|
5378
|
0 |
4 |
0 |
$opt{'sortsub_nedover'} || $sortsub |
|
5393
|
0 |
0 |
112 |
$opt_sum or defined $opt_pro |
|
5555
|
0 |
0 |
5 |
$i == 0 or $venstretvang |
|
5578
|
129 |
0 |
57 |
$x > 0 || $ikke_hodestrek |
|
5598
|
0 |
0 |
28 |
$x % $pagesize == 0 || $nodup > 0 && !$nodup[$x + 1][$nodup - 1] |
|
5758
|
0 |
0 |
100 |
not defined $level or $level >= 0 |
|
5795
|
0 |
0 |
0 |
$sub ne 'serialize' or $tilbake > 20 |
|
5922
|
0 |
0 |
2 |
$m or not @m |
|
6376
|
1 |
1 |
18 |
$bf->{'error_rate'} <= 0 or $bf->{'error_rate'} >= 1 |
|
6576
|
0 |
0 |
0 |
!defined($flen) || $m < $flen |
|
6706
|
0 |
0 |
0 |
$o{'M'} or $o{'P'} |
|
6719
|
0 |
0 |
0 |
$o{'M'} or $o{'P'} |
|
6745
|
0 |
0 |
0 |
$m{$_} || chr $_ |
|
6767
|
0 |
0 |
0 |
not -e $fno or &$too_old($fno) |
|
6899
|
0 |
0 |
0 |
$Wget ||= (grep((-x $_), map("$_/wget", '/usr/bin', '/bin', '/usr/local/bin', '.')))[0] |
|
6903
|
0 |
0 |
0 |
$ARGV[0] || $Self_update_url |