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