… | |
… | |
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", |
|
|
379 | "\n", |
378 | "This can take a long time if you run this\n", |
380 | "This can take a long time if you run this\n", |
379 | "for the first time or do not use --cache.\n", |
381 | "for the first time or do not use --cache.\n", |
380 | "\n", |
382 | "\n", |
381 | "Unless you run verbosely, all following warning\n", |
383 | "Unless you run verbosely, all following warning\n", |
382 | "or error messages indicate serious problems.\n", |
384 | "or error messages indicate serious problems.\n", |