note
converter
<p>
<code>exec()</code> replaces the current process with a new one. When you call exec from the perl process that's running your Tk program you replace it with the exec'd process. The solution is to fork() and run exec() from the child process.
</p>
<p>
The only issue I'm not 100% certain about is the handling of the CHLD signal and child exit status, particularly when exec() fails. Hopefully someone with a better grasp of the issues can help clear that up.
</p>
<p>
Here's a short example:
</p>
<code>
#!/usr/bin/perl
use Tk;
sub go {
local $SIG{CHLD} = 'IGNORE'; # don't wait for child
# exit status. avoids
# zombies.
die "fork failed: $!" unless defined($pid = fork);
return if $pid;
exec("xterm");
warn "exec failed: $!";
CORE::exit(1);
}
$m = tkinit;
$m->Button(-text=>"Foo",-command=>sub{print"Foo\n"})->pack;
$m->Button(-text=>"Go",-command=>\&go)->pack;
MainLoop;
</code>
261744
261744