|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
74
 | 
 0  | 
 36  | 
 unless (open LTMP, ">$lock_tmp")
  | 
 
| 
83
 | 
 0  | 
 36  | 
 if ($retries > 0)
  | 
 
| 
84
 | 
 0  | 
 36  | 
 unless print LTMP "$hname.$$\n"
  | 
 
| 
86
 | 
 36  | 
 0  | 
 if (link $lock_tmp, $lock_file)
  | 
 
| 
93
 | 
 0  | 
 0  | 
 unless @stat
  | 
 
| 
94
 | 
 0  | 
 0  | 
 if (defined $stat[3] and $stat[3] > 1)
  | 
 
| 
100
 | 
 0  | 
 0  | 
 $#stat < 11 ? :
  | 
 
| 
102
 | 
 0  | 
 0  | 
 unless @stat
  | 
 
| 
103
 | 
 0  | 
 0  | 
 $#stat < 11 ? :
  | 
 
| 
104
 | 
 0  | 
 0  | 
 if (defined $lock_age and defined $now and $now - $lock_age > 600)
  | 
 
| 
107
 | 
 0  | 
 0  | 
 defined $lock_age ? :
  | 
 
| 
109
 | 
 0  | 
 0  | 
 unless unlink $lock_file
  | 
 
| 
114
 | 
 0  | 
 36  | 
 unless close LTMP
  | 
 
| 
115
 | 
 0  | 
 36  | 
 unless unlink $lock_tmp
  | 
 
| 
119
 | 
 36  | 
 0  | 
 if ($is_locked)
  | 
 
| 
121
 | 
 0  | 
 36  | 
 unless @stat
  | 
 
| 
122
 | 
 0  | 
 36  | 
 $#stat < 11 ? :
  | 
 
| 
138
 | 
 0  | 
 36  | 
 unless ($lock_tmp)
  | 
 
| 
148
 | 
 0  | 
 36  | 
 if (not defined sysopen(LTMP, $lock_tmp, 193, 448)) { }
  | 
 
| 
153
 | 
 0  | 
 36  | 
 unless print LTMP "\n"
  | 
 
| 
155
 | 
 0  | 
 36  | 
 if (not @stat_ourtmp = stat LTMP or scalar @stat_ourtmp < 11)
  | 
 
| 
156
 | 
 0  | 
 0  | 
 unless @stat_ourtmp
  | 
 
| 
158
 | 
 0  | 
 0  | 
 unless close LTMP
  | 
 
| 
159
 | 
 0  | 
 0  | 
 unless unlink $lock_tmp
  | 
 
| 
166
 | 
 0  | 
 36  | 
 unless (defined $ourtmp_ctime)
  | 
 
| 
170
 | 
 0  | 
 36  | 
 unless close LTMP
  | 
 
| 
171
 | 
 0  | 
 36  | 
 unless unlink $lock_tmp
  | 
 
| 
180
 | 
 0  | 
 36  | 
 unless (defined $lock_ctime)
  | 
 
| 
186
 | 
 0  | 
 36  | 
 unless @stat_lock
  | 
 
| 
190
 | 
 36  | 
 0  | 
 if (defined $now_ctime and $now_ctime == $lock_ctime)
  | 
 
| 
193
 | 
 0  | 
 36  | 
 unless unlink $lock_file
  | 
 
| 
197
 | 
 0  | 
 36  | 
 if ($ourtmp_ctime >= $lock_ctime + 600)
  | 
 
| 
212
 | 
 0  | 
 0  | 
 if ($ourtmp_ctime < $lock_ctime + 600) { }
  | 
 
| 
224
 | 
 0  | 
 4  | 
 unless $path
  | 
 
| 
235
 | 
 0  | 
 4  | 
 unless @stat
  | 
 
| 
237
 | 
 0  | 
 4  | 
 $#stat < 11 ? :
  |