| … | … | ||
|---|---|---|---|
| 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 |