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