| … | |
… | |
| 68 | } |
68 | } |
| 69 | |
69 | |
| 70 | sub inst_maps($) { |
70 | sub inst_maps($) { |
| 71 | my (undef, $path) = @_; |
71 | my (undef, $path) = @_; |
| 72 | |
72 | |
| 73 | print "installing '$path' to '$DATADIR/maps'\n"; |
73 | print "\nInstalling '$path' to '$DATADIR/maps'\n\n"; |
| 74 | |
74 | |
| 75 | if (!-f "$path/regions") { |
75 | if (!-f "$path/regions") { |
| 76 | warn "'$path' does not look like a maps directory ('regions' file is missing).\n"; |
76 | warn "'$path' does not look like a maps directory ('regions' file is missing).\n"; |
| 77 | exit 1 unless $FORCE; |
77 | exit 1 unless $FORCE; |
| 78 | } |
78 | } |
| … | |
… | |
| 372 | } |
372 | } |
| 373 | |
373 | |
| 374 | sub inst_arch($) { |
374 | sub inst_arch($) { |
| 375 | my (undef, $path) = @_; |
375 | my (undef, $path) = @_; |
| 376 | |
376 | |
|
|
377 | print "\n", |
| 377 | print "Installing '$path' to '$DATADIR'\n", |
378 | "Installing '$path' to '$DATADIR'\n", |
| 378 | "\n", |
379 | "\n", |
| 379 | "This can take a long time if you run this\n", |
380 | "This can take a long time if you run this\n", |
| 380 | "for the first time or do not use --cache.\n", |
381 | "for the first time or do not use --cache.\n", |
| 381 | "\n", |
382 | "\n", |
| 382 | "Unless you run verbosely, all following warning\n", |
383 | "Unless you run verbosely, all following warning\n", |
