App-USBKeyCopyCon
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/USBKeyCopyCon.pm view on Meta::CPAN
# Arrange to catch exit status of child processes
my $exit_status = $self->exit_status;
$SIG{CHLD} = sub {
my $pid;
do {
$pid = waitpid(-1, WNOHANG);
$exit_status->{$pid} = $? if $pid > 0;
} while $pid > 0;
};
Glib::Timeout->add(500, sub { $self->tick });
Gtk2->main;
$self->restore_automount;
$self->clean_temp_dir;
}
1;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.023 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )