projects
/
dragonfly.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge from vendor branch BSDTAR:
[dragonfly.git]
/
contrib
/
nvi
/
perl_scripts
/
tk.pl
1
# make sure every subprocess has it's exit and that the main one
2
# hasn't
3
sub fun {
4
unless ($pid = fork) {
5
unless (fork) {
6
use Tk;
7
$MW = MainWindow->new;
8
$hello = $MW->Button(
9
-text => 'Hello, world',
10
-command => sub {exit;},
11
);
12
$hello->pack;
13
MainLoop;
14
}
15
exit 0;
16
}
17
waitpid($pid, 0);
18
}
19
20
1;