summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/XFdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/XFdrake')
-rwxr-xr-xperl-install/standalone/XFdrake8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake
index 08414be56..fdc0250e5 100755
--- a/perl-install/standalone/XFdrake
+++ b/perl-install/standalone/XFdrake
@@ -35,7 +35,7 @@ my ($configure_this) = grep { !/^-/ } @ARGV;
$configure_this ||= 'everything';
/-h/ || $configure_this !~ /^(resolution|monitor|everything|auto_install)/ and die <<'EOF';
-usage: XFdrake [--expert] [--noauto] [--skiptest] [--auto] [everything]
+usage: XFdrake [--expert] [--noauto] [--auto] [everything]
XFdrake [--noauto] monitor
XFdrake resolution
EOF
@@ -47,11 +47,9 @@ $::testing = /-testing/;
begin:
{
- $X->{skiptest} = /-skiptest/;
-
my $in = 'interactive'->vnew('su', 'X');
- $::isEmbedded and kill USR2, $::CCPID;
+ $::isEmbedded and kill 'USR2', $::CCPID;
my $rc = do {
if ($configure_this eq 'everything') {
@@ -79,7 +77,7 @@ begin:
$in->exit(0) if !$::isEmbedded;
- kill USR1, $::CCPID;
+ kill 'USR1', $::CCPID;
goto begin;
}