in reply to Re^2: using Net::OpenSSH in a MCE worker thread
in thread using Net::OpenSSH in a MCE worker thread


taken from OpenSSH.pm


sub _load_module {
    my ($module, $version) = @_;
    $loaded_module{$module} ||= do {
        do {
            local ($@, $SIG{__DIE__});
            eval "require $module; 1"
        } or croak "unable to load Perl module $module";
        1
    };
    if (defined $version) {
        local ($@, $SIG{__DIE__});
        my $mv = eval "\$${module}::VERSION" || 0;
        (my $mv1 = $mv) =~ s/_\d*$//;
        croak "$module version $version required, $mv is available"
            if $mv1 < $version;
    }
    1
}

[download]


somewhere in here it breaks... if pm not preloaded and in MCE context.

Replies are listed 'Best First'.
Re^4: using Net::OpenSSH in a MCE worker thread
by salva (Canon) on Jun 28, 2013 at 11:59 UTC
    oops, there is a bug in that part of the code that causes it to fail silently (instead of failing with an error that tells you what has gone wrong).

    Try replacing it by the following version: 

    sub _load_module {
    my ($module, $version) = @_;
    $loaded_module{$module} ||= do {
        do {
            local ($@, $SIG{__DIE__});
            eval "require $module; 1"
        } or croak "unable to load Perl module $module";
        1
    };
    if (defined $version) {
        my $mv = do {
            local ($@, $SIG{__DIE__});
            eval "\$${module}::VERSION" || 0;
        };
        (my $mv1 = $mv) =~ s/_\d*$//;
        croak "$module version $version required, $mv is available"
            if $mv1 < $version;
    }
    1
}

    [download]
[reply]
[d/l]
      Hi salva - thats fast! :)

      tried, but with no success... Problem, MCE worker threads have no strout/stderr to use...

      I don't get the magic of that code, but if I preload IO::Pty it works.
      Your change was for a load having a version - and IP::Pty is loaded without version specified.

      to me it still points towards using signals while running in MCE....

      hope it helps
[reply]
        Try tracing the program with strace (or your favorite OS equivalent) and check the last things it does before crashing (or post here the output).
[reply]
[d/l]

In Section Seekers of Perl Wisdom