summaryrefslogtreecommitdiffstats
path: root/drakpxelinux.pl
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-06-10 04:46:51 +0000
committerOlivier Blin <oblin@mandriva.org>2005-06-10 04:46:51 +0000
commit869bbd7a40e218e70ddba8e995b7edc834df0547 (patch)
treed22e957f76f553c744c50166443928fe69cdc043 /drakpxelinux.pl
parente326e2019e918ec1cc2ab15caf0e04b7604c79b4 (diff)
downloaddrakpxelinux-869bbd7a40e218e70ddba8e995b7edc834df0547.tar
drakpxelinux-869bbd7a40e218e70ddba8e995b7edc834df0547.tar.gz
drakpxelinux-869bbd7a40e218e70ddba8e995b7edc834df0547.tar.bz2
drakpxelinux-869bbd7a40e218e70ddba8e995b7edc834df0547.tar.xz
drakpxelinux-869bbd7a40e218e70ddba8e995b7edc834df0547.zip
inline AmIRoot and fix perl_checker warning
Diffstat (limited to 'drakpxelinux.pl')
-rw-r--r--drakpxelinux.pl9
1 files changed, 3 insertions, 6 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index 9e17139..3341a15 100644
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -42,14 +42,11 @@ use constant FALSE => 0;
use constant TRUE => 1;
-sub AmIRoot() {
- unless ($> == 0) {
- err_dialog(N("Error!"), N("You are not root. Exiting...")) and !$::testing && die;
- }
+unless ($> == 0) {
+ err_dialog(N("Error!"), N("You are not root. Exiting..."));
+ die unless $::testing;
}
-AmIRoot();
-
# ie of entry menu in PXE:
#label linux
# KERNEL images/vmlinuz