84d9c625bf
- Fix for possible unset uid/gid in toproto - Fix for default mtree style - Update libelf - Importing libexecinfo - Resynchronize GCC, mpc, gmp, mpfr - build.sh: Replace params with show-params. This has been done as the make target has been renamed in the same way, while a new target named params has been added. This new target generates a file containing all the parameters, instead of printing it on the console. - Update test48 with new etc/services (Fix by Ben Gras <ben@minix3.org) get getservbyport() out of the inner loop Change-Id: Ie6ad5226fa2621ff9f0dee8782ea48f9443d2091
20 lines
432 B
Perl
20 lines
432 B
Perl
# make sure every subprocess has it's exit and that the main one
|
|
# hasn't
|
|
sub fun {
|
|
unless ($pid = fork) {
|
|
unless (fork) {
|
|
use Tk;
|
|
$MW = MainWindow->new;
|
|
$hello = $MW->Button(
|
|
-text => 'Hello, world',
|
|
-command => sub {exit;},
|
|
);
|
|
$hello->pack;
|
|
MainLoop;
|
|
}
|
|
exit 0;
|
|
}
|
|
waitpid($pid, 0);
|
|
}
|
|
|
|
1;
|