… | … | ||
---|---|---|---|
206 | } | 206 | } |
207 | } | 207 | } |
208 | 208 | ||
209 | undef $parse_block; # work around bug in perl not freeing $fh etc. | 209 | undef $parse_block; # work around bug in perl not freeing $fh etc. |
210 | 210 | ||
211 | warn "hoi\n";#d# | ||
212 | Storable::nstore (\%arc, $cache) | 211 | Storable::nstore (\%arc, $cache) |
213 | if defined $cache; | 212 | if defined $cache; |
214 | warn "hox\n";#d# | ||
215 | 213 | ||
216 | \%arc | 214 | \%arc |
217 | } | 215 | } |
218 | } | 216 | } |
219 | 217 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |