diff options
| -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"); } } |