mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-25 11:37:56 +00:00
b8ba871bd9
files, curses, db, regex etc that we already have). The other glue will follow shortly. Obtained from: Keith Bostic <bostic@bostic.com>
21 lines
432 B
Perl
21 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;
|