| changeset 29 | 74c18818ee24 |
| parent 27 | 7062e28b526b |
| child 31 | 7d2c9f3186f4 |
| 28:a6f60adbae92 | 29:74c18818ee24 |
|---|---|
133 |
133 |
134 seek($tmp, 0, 0) or die "Can't seek tmpfile"; |
134 seek($tmp, 0, 0) or die "Can't seek tmpfile"; |
135 |
135 |
136 $/ = "\0"; |
136 $/ = "\0"; |
137 delete $h{$_} while <$tmp>; |
137 delete $h{$_} while <$tmp>; |
138 print "$. items deleted from $db\n"; |
138 printf "$. items %s from $db\n", |
139 $opt_purge ? "purged" : "deleted"; |
|
139 |
140 |
140 close($tmp); |
141 close($tmp); |
141 |
142 |
142 } |
143 } |
143 exit 0; |
144 exit 0; |