… | … | ||
---|---|---|---|
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# | ||
211 | Storable::nstore (\%arc, $cache) | 212 | Storable::nstore (\%arc, $cache) |
212 | if defined $cache; | 213 | if defined $cache; |
214 | warn "hox\n";#d# | ||
213 | 215 | ||
214 | \%arc | 216 | \%arc |
215 | } | 217 | } |
216 | } | 218 | } |
217 | 219 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |