diff options
Diffstat (limited to 'perl-install/standalone/mousedrake')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index 1769007dd..aff16a1b6 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -10,6 +10,7 @@ use mouse; use c; require 'dumpvar.pl'; +$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; local $_ = join '', @ARGV; /-h/ and die "usage: mousedrake [--auto] [--testing]\n"; @@ -19,6 +20,7 @@ $::testing = /-testing/; my $in = vnew interactive('su'); +begin: my ($mouse) = mouse::detect() unless $::noauto; if (!$mouse || !$::auto) { @@ -45,4 +47,5 @@ $o->{mouse}{device} = dumpValue(\$mouse); mouse::write_conf($mouse); -$in->exit(0); +$::isEmbedded ? kill(USR1, $::CCPID) : $in->exit(0); +goto begin; |