| line |
true |
false |
branch |
|
68
|
0 |
0 |
if $ug->opened
|
|
72
|
0 |
0 |
if (fcread($flags) and not fctrunc($flags))
|
|
73
|
0 |
0 |
unless $hdr = $ug->readHeader || $ug->readHeader("$ug->{'base'}.dba.hdr")
|
|
75
|
0 |
0 |
unless $ug->loadHeaderData($hdr)
|
|
81
|
0 |
0 |
if ($hdr and !defined($hdr->{'version'}) || 'version'->parse($hdr->{'version'}) < $min_version)
|
|
90
|
0 |
0 |
unless $ug->{'r1'}->open("$base.dba1", $flags, 'perms', $ug->{'perms'}, 'packas', "$ug->{'pack_i'}")
|
|
92
|
0 |
0 |
unless $ug->{'r2'}->open("$base.dba2", $flags, 'perms', $ug->{'perms'}, 'packas', "$ug->{'pack_d'}$ug->{'pack_f'}")
|
|
103
|
0 |
0 |
if ($ug->opened and fcwrite($ug->{'flags'}))
|
|
104
|
0 |
0 |
unless $ug->saveHeader
|
|
106
|
0 |
0 |
unless $ug->{'r1'}->close
|
|
107
|
0 |
0 |
unless $ug->{'r2'}->close
|