Re: Conflict with Net::SSH::Perl and Tk?

Folks-

Thanks to everyone who responded.

This morning I was able to locate the problem, and fix it.

The problem occurs if you are running Crypt::Random version
1.13. The problem is fixed in version 1.25 (and maybe
earlier, I don't know).

The problem exists (on my system) in the file:
/.../perl/lib/site_perl/5.6.1/Crypt/Random.pm

The following lines:
===================================================================
*import      = \&Exporter::import;

@EXPORT_OK   = qw( makerandom makerandom_itv makerandom_octet );
===================================================================

Should be changed to:
===================================================================
BEGIN {
    *import = \&Exporter::import;
    @EXPORT_OK = qw( makerandom makerandom_itv makerandom_octet );
}
===================================================================

The 1.25 version of Random.pm has a few other fixes as well, and
I was able to simply overwrite the 1.13 version with no apparent
problems. I actually tried to upgrade to 1.25 using CPAN, but ended
up getting caught in dependency hell, and ran into a complier problem
with Math::Pari, which I don't want to waste my time on right now.

Hope that helps anyone who follows in my footsteps.

-Craig

"Craig M. Votava" wrote:
> 
> Folks-
> 
> When I try to run the following:
> ======================================================
> #!/usr/bin/perl
> 
> require Net::SSH::Perl;
> 
> use Tk;
> 
> my $ssh;
> my $host="nwsgpb";
> 
> $ssh = Net::SSH::Perl->new($host, protocol=>2);
> ======================================================
> 
> I get the attached errors. If I comment out the
> "use Tk" everything works fine.
> 
> Any thoughts why?
> 
> Thanks
> 
> -Craig Votava
> Lucent Technologies
> 
> "makerandom" is not exported by the Crypt::Random module at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random/Generator.pm line 12
> "makerandom_itv" is not exported by the Crypt::Random module at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random/Generator.pm line 12
> "makerandom_octet" is not exported by the Crypt::Random module at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random/Generator.pm line 12
> Can't continue after import errors at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random/Generator.pm line 12
> BEGIN failed--compilation aborted at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random/Generator.pm line 12, <GEN0> line
> 1.
> Compilation failed in require at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random.pm line 18, <GEN0> line 1.
> BEGIN failed--compilation aborted at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/Random.pm line 18, <GEN0> line 1.
> Compilation failed in require at /opt/exp/perl/lib/site_perl/5.6.1/Crypt/DH.pm
> line 6, <GEN0> line 1.
> BEGIN failed--compilation aborted at
> /opt/exp/perl/lib/site_perl/5.6.1/Crypt/DH.pm line 6, <GEN0> line 1.
> Compilation failed in require at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl/Kex/DH1.pm line 13, <GEN0> line
> 1.
> BEGIN failed--compilation aborted at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl/Kex/DH1.pm line 13, <GEN0> line
> 1.
> Compilation failed in require at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl/Kex.pm line 6, <GEN0> line 1.
> BEGIN failed--compilation aborted at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl/Kex.pm line 6, <GEN0> line 1.
> Compilation failed in require at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl/SSH2.pm line 6, <GEN0> line 1.
> BEGIN failed--compilation aborted at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl/SSH2.pm line 6, <GEN0> line 1.
> Compilation failed in require at
> /opt/exp/perl/lib/site_perl/5.6.1/Net/SSH/Perl.pm line 51, <GEN0> line 1.
> -++**==--++**==--++**==--++**==--++**==--++**==--++**==
> This message was posted through the Stanford campus mailing list
> server.  If you wish to unsubscribe from this mailing list, send the
> message body of "unsubscribe ptk" to [email protected]
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to [email protected]