my %id_map;
my $failwhale = 0;
my $first_call = 1;
+my $child_pid;
my %irssi_to_mirc_colors = (
'%k' => '01',
return 1;
} else {
¬ice("Login failed");
+ if ( not Irssi::settings_get_bool("twirssi_avoid_ssl") ) {
+ ¬ice(
+ "It's possible you're missing one of the modules required for "
+ . "SSL logins. Try setting twirssi_avoid_ssl to on. See "
+ . "http://cpansearch.perl.org/src/GAAS/libwww-perl-5.831/README.SSL "
+ . "for the detailed requirements." );
+ }
}
}
my ( $fh, $filename ) = File::Temp::tempfile();
binmode( $fh, ":utf8" );
- my $pid = fork();
+ $child_pid = fork();
- if ($pid) { # parent
+ if ($child_pid) { # parent
Irssi::timeout_add_once( 5000, 'monitor_child',
[ "$filename.done", 0 ] );
- Irssi::pidwait_add($pid);
- } elsif ( defined $pid ) { # child
+ Irssi::pidwait_add($child_pid);
+ } elsif ( defined $child_pid ) { # child
close STDIN;
close STDOUT;
close STDERR;
}
$last_poll = $new_last_poll;
+ # make sure the pid is removed from the waitpid list
+ Irssi::pidwait_remove($child_pid);
+
# save id_map hash
if ( keys %id_map
and my $file =