diff options
| author | fukachan <fukachan> | 2004-07-27 15:48:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-07-27 15:48:09 +0000 |
| commit | a624549d5896a175cf3ff24cdff57035a26a3ef0 (patch) | |
| tree | 7845c6e2021653d98cc185d8889289e2efdd320b | |
| parent | 6e1143ec5cfd9c2d9c4d6bb6f41c3b668ecc0b6c (diff) | |
| download | fml8-a624549d5896a175cf3ff24cdff57035a26a3ef0.tar.gz fml8-a624549d5896a175cf3ff24cdff57035a26a3ef0.tar.bz2 fml8-a624549d5896a175cf3ff24cdff57035a26a3ef0.zip | |
use message_nl() if could.
| -rwxr-xr-x | install.pl.in | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/install.pl.in b/install.pl.in index 6957bebc..95200ec0 100755 --- a/install.pl.in +++ b/install.pl.in @@ -5,7 +5,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: install.pl.in,v 1.4 2003/01/30 03:33:16 fukachan Exp $ +# $FML: install.pl.in,v 1.5 2004/06/07 16:04:41 fukachan Exp $ # use strict; @@ -109,6 +109,10 @@ sub _install $installer->setup_ml_spool_dir(); } else { + my $r = "user should be not ROOT!"; + my $s = $installer->message_nl("installer.no_root_user", $r); + + print $s if $s; croak("Error: run $0 as root.\n"); } } |