line |
true |
false |
branch |
87
|
0 |
0 |
if ($frequency == $tuning_href->{'ts'}{$this_tsid}{'frequency'}) |
123
|
0 |
0 |
if ($tsid and exists $tuning_href->{'ts'}{$tsid}) |
149
|
0 |
0 |
unless $pid |
163
|
0 |
0 |
if ($tsid eq $tuning_href->{'pr'}{$chan}{'tsid'}) |
167
|
0 |
0 |
if ($pid == $tuning_href->{'pr'}{$chan}{$stream}) |
173
|
0 |
0 |
if $pr_href |
179
|
0 |
0 |
if ($pid == $_) |
187
|
0 |
0 |
if $pr_href |
223
|
0 |
7 |
if $DEBUG |
228
|
0 |
7 |
unless $pid |
265
|
16 |
2427 |
if ($pid == $aref->[1]) |
267
|
0 |
16 |
if $DEBUG |
322
|
0 |
15 |
if $DEBUG |
326
|
15 |
0 |
if ($found_channel_name) |
332
|
15 |
0 |
if ($demux_params_href) |
355
|
3 |
15 |
if (exists $search_href->{$channel_name}) { } |
384
|
0 |
135 |
if $DEBUG > 3 |
386
|
0 |
135 |
if $DEBUG > 3 |
391
|
0 |
15 |
if $DEBUG > 2 |
400
|
0 |
163 |
if $DEBUG > 2 |
401
|
14 |
149 |
if ($srch_chan eq $search) |
404
|
0 |
14 |
if $DEBUG |
409
|
14 |
75 |
if $found_channel_name |
424
|
3 |
1 |
if ($alias_href and scalar keys %$alias_href) |
426
|
0 |
3 |
if $DEBUG > 3 |
428
|
2 |
1 |
if ($alias_key) |
431
|
0 |
2 |
if $DEBUG > 3 |
504
|
0 |
18 |
if $DEBUG |
510
|
4 |
14 |
unless ($language_spec) |
512
|
0 |
4 |
if $DEBUG |
521
|
0 |
14 |
if $DEBUG |
527
|
0 |
56 |
if $DEBUG >= 10 |
534
|
2 |
12 |
if ($language_spec =~ s/\+//g) |
539
|
0 |
2 |
if $DEBUG >= 10 |
542
|
0 |
14 |
if $DEBUG >= 10 |
552
|
0 |
20 |
if $DEBUG >= 10 |
558
|
0 |
32 |
if $DEBUG >= 10 |
559
|
12 |
20 |
if ($audio_href->{'lang'} =~ /$lang/i) |
562
|
0 |
12 |
if $DEBUG >= 10 |
565
|
0 |
12 |
if $DEBUG >= 10 |
568
|
8 |
12 |
unless @audio_details |
572
|
8 |
6 |
if (@lang or not $pid) |
574
|
8 |
0 |
if $lang |
645
|
0 |
2 |
if $DEBUG |
651
|
1 |
1 |
unless ($language_spec) |
653
|
0 |
1 |
if $DEBUG |
662
|
0 |
1 |
if $DEBUG |
668
|
0 |
4 |
if $DEBUG >= 10 |
675
|
0 |
1 |
if ($language_spec =~ s/\+//g) |
680
|
0 |
0 |
if $DEBUG >= 10 |
683
|
0 |
1 |
if $DEBUG >= 10 |
693
|
0 |
2 |
if $DEBUG >= 10 |
699
|
0 |
3 |
if $DEBUG >= 10 |
700
|
2 |
1 |
if ($subtitle_href->{'lang'} =~ /$lang/i) |
703
|
0 |
2 |
if $DEBUG >= 10 |
706
|
0 |
2 |
if $DEBUG >= 10 |
709
|
1 |
1 |
unless @subtitle_details |
713
|
0 |
1 |
if (@lang or not $pid) |
715
|
0 |
0 |
if $lang |
753
|
9 |
0 |
if ($out_spec =~ /a/i) |
757
|
4 |
5 |
if $error |
761
|
6 |
0 |
if $pid |
772
|
4 |
1 |
if ($out_spec =~ /v/i) |
775
|
4 |
0 |
if $pid |
785
|
2 |
3 |
if ($out_spec =~ /s/i) |
789
|
0 |
2 |
if $error |
793
|
3 |
0 |
if $pid |
836
|
217 |
441 |
if $pid != $audio_pid |
872
|
21 |
7 |
if $pid != $sub_pid |
896
|
0 |
5 |
unless defined $search_path |
900
|
5 |
0 |
if ($dir) |
908
|
0 |
15 |
if $DEBUG |
916
|
0 |
5 |
if $DEBUG |
917
|
0 |
5 |
if $DEBUG >= 5 |
935
|
0 |
1 |
unless defined $search_path |
937
|
1 |
0 |
if ($dir and $href) |
946
|
0 |
1 |
if $DEBUG |
968
|
0 |
0 |
unless exists $FILES{$filetype} |
970
|
0 |
0 |
unless defined $search_path |
973
|
0 |
0 |
if ($dir) |
997
|
0 |
0 |
unless exists $FILES{$filetype} |
999
|
0 |
0 |
unless defined $search_path |
1002
|
0 |
0 |
if ($dir) |
1052
|
0 |
0 |
if ($tsid =~ /(\d+)([a-z])/i) |
1074
|
0 |
0 |
if (exists $tuning_href->{'ts'}{$tsid}) |
1107
|
0 |
0 |
if $DEBUG >= 5 |
1115
|
0 |
0 |
if ($old_href and $new_href) |
1120
|
0 |
0 |
if (exists $new_href->{$region}) |
1133
|
0 |
0 |
unless $old_href |
1135
|
0 |
0 |
if $DEBUG >= 5 |
1201
|
0 |
0 |
if $DEBUG >= 5 |
1207
|
0 |
0 |
if $DEBUG |
1209
|
0 |
0 |
if ($old_href and $new_href) |
1211
|
0 |
0 |
if $DEBUG >= 2 |
1234
|
0 |
0 |
if $DEBUG |
1245
|
0 |
0 |
unless $old_href |
1247
|
0 |
0 |
if $DEBUG >= 5 |
1249
|
0 |
0 |
if $DEBUG |
1263
|
0 |
0 |
if $DEBUG |
1264
|
0 |
0 |
if $DEBUG >= 2 |
1282
|
0 |
0 |
if (exists $new_old_info_href->{'old'}{'tsid'}{$tsid}) |
1290
|
0 |
0 |
if ($old_freq == $new_freq) |
1304
|
0 |
0 |
if (not $overlap) { } |
1311
|
0 |
0 |
if ($options_href->{'duplicates'}) { } |
1319
|
0 |
0 |
if (not $options_href->{'num_chans'} or $new_chans == $old_chans) { } |
|
0 |
0 |
elsif ($new_chans < $old_chans) { } |
1324
|
0 |
0 |
if (_strength_cmp($new_strength_href, $old_strength_href) < 0) { } |
1357
|
0 |
0 |
if ($delete) { } |
|
0 |
0 |
elsif ($duplicate) { } |
1432
|
0 |
0 |
if $DEBUG |
1433
|
0 |
0 |
if $DEBUG >= 2 |
1474
|
0 |
0 |
if $DEBUG |
1475
|
0 |
0 |
if $DEBUG >= 2 |
1484
|
0 |
0 |
if $DEBUG |
1486
|
0 |
0 |
if (exists $new_old_info_href->{'old'}{'tsid-pnr'}{"$tsid-$pnr"} and $new_old_info_href->{'old'}{'tsid-pnr'}{"$tsid-$pnr"} ne $chan) |
1492
|
0 |
0 |
if $DEBUG |
1497
|
0 |
0 |
if (exists $old_href->{'pr'}{$chan}) |
1500
|
0 |
0 |
if ($new_href->{'pr'}{$chan}{'tsid'} eq $old_href->{'pr'}{$chan}{'tsid'}) |
1512
|
0 |
0 |
if (not $overlap) { } |
1519
|
0 |
0 |
if ($options_href->{'duplicates'}) { } |
1654
|
10 |
5 |
if ($FILES{$region}{'required'}) |
1656
|
0 |
10 |
unless -f "$d/$FILES{$region}{'file'}" |
1660
|
5 |
0 |
if ($found) |
1667
|
0 |
0 |
$dir ? : |
|
0 |
5 |
if $DEBUG |
1687
|
0 |
1 |
if $DEBUG |
1693
|
0 |
1 |
if $DEBUG |
1696
|
1 |
0 |
unless (-d $d) |
1702
|
0 |
1 |
if $@ |
1704
|
0 |
1 |
if $DEBUG |
1707
|
1 |
0 |
if (-d $d) |
1709
|
0 |
1 |
if $DEBUG |
1714
|
3 |
0 |
if (open my $fh, ">>$d/$FILES{$region}{'file'}") { } |
1718
|
0 |
3 |
if $DEBUG |
1722
|
0 |
0 |
if $DEBUG |
1730
|
1 |
0 |
if ($found) |
1737
|
0 |
0 |
$dir ? : |
|
0 |
1 |
if $DEBUG |
1778
|
0 |
5 |
unless open my $fh, "<$fname" |
1785
|
4 |
221 |
if $line =~ /^\s*#/ |
1787
|
18 |
203 |
if ($line =~ /\[([\da-z]+)\]/i) { } |
|
184 |
19 |
elsif ($line =~ /(\S+)\s*=\s*(\S+)/) { } |
|
0 |
19 |
elsif ($line =~ /(\S+)\s*=/) { } |
1793
|
184 |
0 |
if ($tsid) |
1835
|
0 |
5 |
if $DEBUG >= 5 |
1838
|
0 |
5 |
unless open my $fh, "<$fname" |
1844
|
221 |
4 |
unless $line =~ /^\s*#/ |
1846
|
0 |
4 |
if $DEBUG >= 5 |
1849
|
2 |
2 |
if ($line =~ /^\s*#\s*VDR\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/i) |
1853
|
0 |
2 |
if (exists $dvb_ts_freqs{$freq}) |
1859
|
0 |
2 |
if $DEBUG >= 5 |
1877
|
0 |
5 |
if $DEBUG >= 5 |
1895
|
0 |
1 |
unless open my $fh, ">$fname" |
1897
|
0 |
1 |
if $DEBUG >= 5 |
1900
|
1 |
0 |
if ($freqs_href and keys %$freqs_href) |
1964
|
18 |
0 |
if ($val =~ /\S+/) |
2008
|
0 |
5 |
unless open my $fh, "<$fname" |
2016
|
4 |
2094 |
if $line =~ /^\s*#/ |
2018
|
150 |
1944 |
if ($line =~ /\[([\da-z]+)\-([\d]+)\]/i) { } |
|
1782 |
162 |
elsif ($line =~ /(\S+)\s*=\s*(\S+.*)/) { } |
|
0 |
162 |
elsif ($line =~ /(\S+)\s*=/) { } |
2024
|
1782 |
0 |
if ($pnr and $tsid) |
2069
|
0 |
1 |
unless open my $fh, ">$fname" |
2102
|
0 |
5 |
unless $href->{$a}{'tsid'} <=> $href->{$b}{'tsid'} |
2109
|
64 |
0 |
if ($val =~ /\S+/) |
2149
|
2 |
3 |
if (-f $fname) |
2151
|
0 |
2 |
unless open my $fh, "<$fname" |
2157
|
4 |
4 |
if $line =~ /^\s*#/ |
2162
|
3 |
1 |
if ($line =~ /(\S+[^=]+)\s*=\s*(\S+[^=]+)\s*/) |
2193
|
0 |
1 |
unless open my $fh, ">$fname" |
2205
|
0 |
0 |
if ($val =~ /\S+/) |
2232
|
0 |
0 |
if $DEBUG |
2234
|
0 |
0 |
if (ref $href eq 'HASH') |
2238
|
0 |
0 |
if $DEBUG |
2240
|
0 |
0 |
if exists $href->{$field} |
2243
|
0 |
0 |
if ($strength_href->{$field} == 65535) |
2245
|
0 |
0 |
if $DEBUG |
2273
|
0 |
0 |
if (defined $a_href->{$field} and defined $b_href->{$field} and $a_href->{$field} > 0 and $a_href->{$field} > 0) |
2280
|
0 |
0 |
if $DEBUG |
2288
|
0 |
0 |
if ($use eq 'ber') |
2294
|
0 |
0 |
if $DEBUG |
2305
|
0 |
0 |
if ($href->{'use'}) |