| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless $up->backup
|
|
47
|
0 |
0 |
unless my $xenum = $DiaColloDB::XECLASS->new('base', "$dbdir/xenum", 'pack_s', $hdr->{'pack_x'})
|
|
60
|
0 |
0 |
unless defined($ti = $ts2i->{$ts})
|
|
64
|
0 |
0 |
unless $xenum->unlink
|
|
67
|
0 |
0 |
unless $tenum->fromHash($ts2i)->save("$dbdir/tenum")
|
|
74
|
0 |
0 |
unless my $xmm = $DiaColloDB::MMCLASS->new('flags', 'r', 'base', "$dbdir/${attr}_2x", 'logCompat', 'off')
|
|
78
|
0 |
0 |
unless $xmm->unlink
|
|
86
|
0 |
0 |
defined $tmp && $tmp == $_ ? :
|
|
93
|
0 |
0 |
unless my $tmm = $DiaColloDB::MMCLASS->new('flags', 'rw', %mmopts)
|
|
95
|
0 |
0 |
unless $tmm->fromArray($mma)
|
|
97
|
0 |
0 |
unless $tmm->save("$dbdir/${attr}_2t")
|
|
107
|
0 |
0 |
unless my $xf = 'DiaColloDB::Relation::Unigrams'->new('base', "$dbdir/xf", 'logCompat', 'off')
|
|
110
|
0 |
0 |
unless $xf->isa('DiaColloDB::Compat::v0_09::Relation::Unigrams')
|
|
115
|
0 |
0 |
unless my $sortfh = opencmd(qq[| sort -nk2 -nk3 -o "$tmpfile"])
|
|
119
|
0 |
0 |
unless $xf->saveTextFh_v0_10($sortfh, 'i2s', sub {
|
|
120
|
0 |
0 |
unless $sortfh->close
|
|
123
|
0 |
0 |
unless $xf->unlink
|
|
128
|
0 |
0 |
unless $tf->loadTextFile($tmpfile)
|
|
134
|
0 |
0 |
unless my $cof = 'DiaColloDB::Relation::Cofreqs'->new('base', "$dbdir/cof", 'logCompat', 'off')
|
|
138
|
0 |
0 |
unless $cof->isa('DiaColloDB::Compat::v0_09::Relation::Cofreqs')
|
|
143
|
0 |
0 |
unless my $sortfh = opencmd(qq[| sort -nk2 -nk3 -nk4 -o "$tmpfile"])
|
|
149
|
0 |
0 |
unless $cof->saveTextFh($sortfh, 'i2s1', sub {
|
|
150
|
0 |
0 |
unless $sortfh->close
|
|
153
|
0 |
0 |
unless $cof->unlink
|
|
158
|
0 |
0 |
unless $tcof->loadTextFile($tmpfile)
|
|
163
|
0 |
0 |
unless ($up->{'keep'})
|
|
165
|
0 |
0 |
unless unlink "$dbdir/upgrade_xf.tmp"
|
|
167
|
0 |
0 |
unless unlink "$dbdir/upgrade_cof.tmp"
|
|
182
|
0 |
0 |
unless $up->SUPER::backup
|
|
183
|
0 |
0 |
unless $up->{'backup'}
|
|
191
|
0 |
0 |
unless copyto_a([glob("$dbdir/xenum.*")], $backd)
|
|
197
|
0 |
0 |
unless copyto_a([glob("$base.*")], $backd)
|
|
204
|
0 |
0 |
unless copyto_a([glob("$base.*")], $backd)
|