| … | … | ||
|---|---|---|---|
| 270 | sub init($) { | 270 | sub init($) { |
| 271 | my ($cachedir) = @_; | 271 | my ($cachedir) = @_; |
| 272 | 272 | ||
| 273 | return if %ARCH; | 273 | return if %ARCH; |
| 274 | 274 | ||
| 275 | mkdir 0777, $cachedir; | ||
| 275 | *ARCH = read_arch "$LIB/archetypes", "$cachedir/archetypes.pst"; | 276 | *ARCH = read_arch "$LIB/archetypes", "$cachedir/archetypes.pst"; |
| 276 | } | 277 | } |
| 277 | 278 | ||
| 278 | =item $type = arch_attr $arch | 279 | =item $type = arch_attr $arch |
| 279 | 280 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |