Current Path : /usr/src/contrib/nvi/perl_scripts/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/src/contrib/nvi/perl_scripts/tk.pl |
# 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;