line |
true |
false |
branch |
77
|
0 |
0 |
unless eval {
|
122
|
0 |
0 |
unless open $lock_fh, "+>>", $lockfile_path
|
126
|
0 |
0 |
if (not flock($lock_fh, 6)) { }
|
128
|
0 |
0 |
unless seek $lock_fh, 0, 0
|
130
|
0 |
0 |
unless close $lock_fh
|
133
|
0 |
0 |
unless my($pid) = $owner =~ /pid (\d+)/
|
134
|
0 |
0 |
unless my(@s) = stat "/proc/$pid"
|
137
|
0 |
0 |
$owner ? :
|
141
|
0 |
0 |
unless $$opts{"silent"}
|
145
|
0 |
0 |
unless seek $lock_fh, 0, 2
|
153
|
0 |
3 |
if (defined $locked_fh)
|
164
|
0 |
0 |
unless $fh == $locked_fh
|
171
|
0 |
0 |
unless flock $fh, 8
|
284
|
0 |
0 |
unless s/\W//a
|
336
|
0 |
0 |
if (not $Saved_Sigs{$_[0]} or $Saved_Sigs{$_[0]} eq "DEFAULT")
|
441
|
0 |
4862638 |
if (not defined $fullname and $is_MSWin) { }
|
442
|
0 |
0 |
if $debug
|
445
|
0 |
0 |
unless (-d _)
|
450
|
4484646 |
377992 |
unless (-d _ or -l _)
|
451
|
2242323 |
2242323 |
if $debug
|
456
|
12 |
377346 |
if (not defined $fullname && -r _ && -x _ or not $is_MSWin and (stat _)[7] == 0 or /\$/ or not -r $fullname or not -x _ or m[^/snap/(?!.*ffice)] or m[^/(proc|dev|sys|tmp|boot|run|lost+found|usr/(include|src))$])
|
467
|
323 |
323 |
if $debug
|
471
|
188673 |
188673 |
if $debug
|
475
|
6 |
377340 |
if (basename($_) =~ /$searchfor_re/)
|
482
|
0 |
12 |
if (@hits) { }
|
487
|
0 |
0 |
if ($path)
|
488
|
0 |
0 |
unless $prefix->subsumes($path)
|
490
|
0 |
0 |
if (_cmp_subpaths($subpath, $results{$o_l}{"subpath"}) >= 0)
|
497
|
0 |
12 |
if $@
|
500
|
2074 |
375272 |
if ($depth == $maxdepth) { }
|
|
0 |
375272 |
elsif ($depth > $maxdepth) { }
|
501
|
1037 |
1037 |
if $debug
|
523
|
0 |
1 |
if defined $hash
|
527
|
0 |
0 |
if (my $fh = eval {
|
530
|
0 |
0 |
if ($octets =~ /Created by LibreOffice (\d+\.\d+\.\w+)/)
|
534
|
0 |
0 |
unless ($raw_version)
|
535
|
0 |
0 |
if (`$prog --version 2>&1` =~ /Libre.*? (\d+\.\d+\.\w+)/) { }
|
541
|
0 |
0 |
unless ($raw_version)
|
574
|
1 |
0 |
unless &_openlibre_features()->{"available"}
|
576
|
0 |
0 |
unless &_openlibre_supports_allsheets()
|
579
|
0 |
0 |
unless &can_extract_allsheets() or &_openlibre_supports_named_sheet()
|
593
|
0 |
0 |
if ($$opts{"suppress_stderr"})
|
596
|
0 |
0 |
if ($$opts{"stdout_to_stderr"})
|
600
|
0 |
0 |
if ($$opts{"stderr_to_stdout"})
|
604
|
0 |
0 |
if ($$opts{"suppress_stdout"})
|
608
|
0 |
0 |
if ($redirs) { }
|
610
|
0 |
0 |
if /["']/
|
612
|
0 |
0 |
if $$opts{"verbose"}
|
615
|
0 |
0 |
if $$opts{"verbose"}
|
623
|
0 |
0 |
unless -e $outpath
|
624
|
0 |
0 |
if -f $outpath
|
625
|
0 |
0 |
unless -d $outpath
|
656
|
1 |
2 |
if $tempdir
|
674
|
0 |
0 |
if ($$seqnums{$bname}++)
|
677
|
0 |
0 |
if $args{"suf"}
|
702
|
0 |
0 |
unless &all(sub {
|
703
|
0 |
0 |
if $$opts{"allsheets"} and not &_openlibre_supports_allsheets()
|
704
|
0 |
0 |
if $$opts{"sheetname"} and not &_openlibre_supports_named_sheet()
|
714
|
0 |
0 |
if $debug
|
716
|
0 |
0 |
if (defined $saved_UserInstallation) { }
|
747
|
0 |
0 |
if ($$opts{'cvt_from'} eq 'csv') { }
|
748
|
0 |
0 |
unless my $filter_name = $$suf2ofilter{$$opts{"cvt_from"}}
|
752
|
0 |
0 |
if (my $cf = $$opts{"col_formats"})
|
753
|
0 |
0 |
unless ref $cf
|
756
|
0 |
0 |
unless /^([123459]|10)$/ or s/^standard$/1/i or s/^text$/2/i or s[^M+/D+/Y+$][3]i or s[^D+/M+/Y+$][4]i or s[^Y+/M+/D+$][5]i or s/^ignore$/9/i or s/^US.*English$/10/i
|
765
|
0 |
0 |
if $colformats
|
814
|
0 |
0 |
if ($$opts{'cvt_to'} eq 'csv') { }
|
815
|
0 |
0 |
unless my $filter_name = $$suf2ofilter{$$opts{"cvt_to"}}
|
860
|
0 |
0 |
$$opts{'sheetname'} ? :
|
|
0 |
0 |
$$opts{'allsheets'} ? :
|
893
|
0 |
0 |
$ifilter ? :
|
|
0 |
0 |
$ofilter ? :
|
897
|
0 |
0 |
unless ($debug)
|
904
|
0 |
0 |
if ($cmdstatus != 0)
|
912
|
0 |
0 |
if $debug
|
913
|
0 |
0 |
if (@result_files == 0)
|
914
|
0 |
0 |
unless -r $src
|
920
|
0 |
0 |
if ($$opts{"allsheets"})
|
925
|
0 |
0 |
unless (my $newbase = $base) =~ s/^\Q$$opts{"ifbase"}\E-//
|
928
|
0 |
0 |
if $debug
|
929
|
0 |
0 |
unless rename $oldpath, $newpath
|
935
|
0 |
0 |
if (-e $dst) { }
|
936
|
0 |
0 |
unless -d $dst
|
937
|
0 |
0 |
if $debug
|
939
|
0 |
0 |
if $debug
|
942
|
0 |
0 |
if $debug
|
944
|
0 |
0 |
if ($$opts{'allsheets'}) { }
|
945
|
0 |
0 |
if $debug
|
946
|
0 |
0 |
unless rename $tdir, $dst
|
948
|
0 |
0 |
if @result_files > 1
|
950
|
0 |
0 |
if $debug
|
1071
|
4 |
2 |
wantarray ? :
|
1095
|
0 |
0 |
if $embedded_sheetname and $sheetname and $embedded_sheetname ne $sheetname
|
1099
|
0 |
2 |
$sheetname ? :
|
1109
|
0 |
2 |
if ref $_[0] eq "HASH"
|
1111
|
2 |
0 |
scalar(@_) % 2 == 1 ? :
|
1118
|
0 |
2 |
if (defined $opts{'inpath'}) { }
|
1119
|
0 |
0 |
if defined $leading_inpath
|
1124
|
0 |
2 |
if $opts{"debug"}
|
1129
|
0 |
2 |
if (exists $opts{"sheet"})
|
1131
|
0 |
0 |
if exists $opts{"sheetname"}
|
1138
|
0 |
2 |
if (defined $sn)
|
1139
|
0 |
0 |
if $sheetname
|
1145
|
0 |
2 |
if ($opts{'sheetname'}) { }
|
|
0 |
2 |
elsif (defined $sheetname) { }
|
1149
|
0 |
0 |
if defined $sheetname and $sheetname ne $opts{"sheetname"}
|
1153
|
0 |
0 |
if $opts{"verbose"}
|
1158
|
0 |
2 |
$key && $key eq 'inpath' ? :
|
1172
|
0 |
0 |
unless /\A(<prefix>.*?)
|
1176
|
0 |
0 |
unless /^:(utf8)$/ or /^:encoding\(([^\)]+)\)$/
|
1434
|
0 |
0 |
if (&_openlibre_supports_allsheets()) { }
|
|
0 |
0 |
elsif (&_ssconvert_supports_allsheets()) { }
|
1444
|
0 |
0 |
unless &_openlibre_supports_named_sheet()
|
1452
|
0 |
0 |
if (&_openlibre_features()->{'available'}) { }
|
1453
|
0 |
0 |
if $$opts{"sheetname"} and not &_openlibre_supports_named_sheet()
|
1461
|
0 |
0 |
unless &_openlibre_features()->{"available"}
|
1470
|
0 |
0 |
if ($$opts{'sheetname'} and &_ssconvert_supports_writing($$opts{'cvt_to'})) { }
|
|
0 |
0 |
elsif (&_openlibre_supports_writing($$opts{'cvt_to'})) { }
|
|
0 |
0 |
elsif (&_ssconvert_supports_writing($$opts{'cvt_to'})) { }
|
1474
|
0 |
0 |
if ($$opts{"sheetname"})
|
1560
|
0 |
0 |
unless -d $outpath
|
1569
|
0 |
0 |
if (defined $$opts{'outpath'}) { }
|
1572
|
0 |
0 |
unless $$opts{"allsheets"}
|
1582
|
0 |
2 |
if $opts{"debug"}
|
1595
|
0 |
2 |
unless $opts{"cvt_from"} eq "csv" or $opts{"cvt_to"} eq "csv"
|
1596
|
0 |
2 |
if ($opts{"allsheets"})
|
1598
|
0 |
0 |
unless ($opts{"cvt_to"} // "") eq "csv"
|
1600
|
0 |
0 |
if $opts{"sheetname"}
|
1602
|
0 |
0 |
if $opts{"outpath"} and -e $opts{"outpath"} and not -d _
|
1606
|
2 |
0 |
if ($opts{"cvt_from"} eq $opts{"cvt_to"})
|
1607
|
2 |
0 |
if (not $opts{'allsheets'}) { }
|
1608
|
0 |
2 |
if ($input_enc ne $output_enc) { }
|
1611
|
0 |
0 |
if $opts{"debug"}
|
1620
|
0 |
2 |
if (defined $opts{'outpath'}) { }
|
1622
|
0 |
0 |
if $opts{"verbose"}
|
1628
|
0 |
2 |
if $opts{"verbose"}
|
1636
|
0 |
0 |
if $input_enc ne $output_enc
|
1643
|
0 |
0 |
if ($@ or not $s) { }
|
1644
|
0 |
0 |
if $opts{"debug"}
|
1646
|
0 |
0 |
if $opts{"verbose"}
|
1650
|
0 |
0 |
if $opts{"verbose"}
|
1655
|
0 |
2 |
unless ($done)
|
1656
|
0 |
0 |
if ($opts{'allsheets'}) { }
|
1661
|
0 |
0 |
if ($opts{'cvt_to'} eq 'csv') { }
|
1671
|
4 |
4 |
&blessed($v) ? :
|
1672
|
2 |
0 |
defined $output_enc ? :
|
1676
|
0 |
2 |
if $opts{"verbose"}
|
1691
|
0 |
2 |
@_ == 1 ? :
|
1697
|
0 |
2 |
if exists $opts{"path"} and not $opts{"silent"}
|
1701
|
0 |
2 |
unless $inpath
|
1702
|
0 |
2 |
if $opts{"outpath"}
|
1705
|
0 |
2 |
if exists $$h{"sheet"}
|
1708
|
0 |
2 |
unless open my $fh, "<", $csvpath
|
1709
|
0 |
2 |
unless binmode $fh, ":crlf:encoding(" . $$h{"encoding"} . ")"
|
1715
|
4 |
6 |
exists $$h{$_} ? :
|