Ok Jacob, so let's don't say this is a bug while you still can run my
module, ok? I'll close this ticket.
regards,
bruno
On Fri, Aug 22, 2008 at 10:25 AM, Romigh, Jacob via RT <
bug-Net-SSH-Expect@rt.cpan.org> wrote:
Show quoted text> Queue: Net-SSH-Expect
> Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=38644 >
>
> Sorry about the vagueness. I was wrong about Net::SSH::Expect not working,
> mostly because I was using ssh_run() when I should have been running
> login().
> But the warning of pseudo-hashes persists, 4 times in a row to be precise.
>
> ---Console Output Quote---
> [qabuild@howlite bin]$ perl NETSSHtest.pl
> Pseudo-hashes are deprecated at Net/SSH/Expect.pm line 60.
> Pseudo-hashes are deprecated at Net/SSH/Expect.pm line 60.
> Pseudo-hashes are deprecated at Net/SSH/Expect.pm line 60.
> Pseudo-hashes are deprecated at Net/SSH/Expect.pm line 60.
> Login output was
> ... (What follows was output I specified in my program)
> ---Quote---
>
> And that is all the information I am getting from my test program.
> Everything else runs as expected.
>
> My code looks like:
>
> ---Code Quote---
> #!/usr/bin/perl
> use Getopt::Std;
> use Net::SSH::Expect;
>
>
> my $ssh = Net::SSH::Expect->new (
> #host => "howlite.msais.com",
> host => $serv,
> password=> $pass,
> user => $user,
> raw_pty => 1
> );
>
>
> my $login_output = $ssh->login();
> print "Login output was $login_output\n";
> ...
> ---Quote---
>
> Looking at the expect code, line 60 belongs to an if statement which
> follows:
>
> ---Expect.pm Quote---
> # validating the user input
> foreach my $key (keys %args) {
> Line 60: if (! exists $self->{$key} ) {
> croak ILLEGAL_ARGUMENT . " attribute '$key' is not a
> valid constructor argument.";
> }
> }
> ---Quote---
>
> Hope this is a bit more helpful than my previous post, which was very much
> lacking information.
>
> -J. Romigh
>
>
>
> -----Original Message-----
> From: Bruno Negrao via RT [mailto:bug-Net-SSH-Expect@rt.cpan.org]
> Sent: Thursday, August 21, 2008 6:18 PM
> To: Romigh, Jacob
> Subject: Re: [rt.cpan.org #38644] Pseudo-hashes are deprecated in Perl
> 5.10
>
> <URL:
http://rt.cpan.org/Ticket/Display.html?id=38644 >
>
> Hello buddy,
>
> Would you do us the great favor of showing here the snippet of code that is
> failing? do you have an error message too?
>
> Please don't show only the line that fails, show some lines before and
> after.
>
> Thanks,
> bruno
>
> On Thu, Aug 21, 2008 at 5:49 PM, Romigh, Jacob via RT <
> bug-Net-SSH-Expect@rt.cpan.org> wrote:
>
> > Thu Aug 21 16:49:03 2008: Request 38644 was acted upon.
> > Transaction: Ticket created by JRomigh@msa.com
> > Queue: Net-SSH-Expect
> > Subject: Pseudo-hashes are deprecated in Perl 5.10
> > Broken in: (no value)
> > Severity: (no value)
> > Owner: Nobody
> > Requestors: JRomigh@msa.com
> > Status: new
> > Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=38644 >
> >
> >
> > Pseudo-hashes are deprecated at Net/SSH/Expect.pm line 60.
> >
> >
> >
> > I'm using Perl 5.10, and since Net::SSH::Expect uses pseudo-hashes, it
> > doesn't seem to work anymore.
> >
> >
> >
> > Pseudo-hashes are deprecated at Net/SSH/Expect.pm line 60.
> >
> >
> >
> > I'm using Perl 5.10, and since Net::SSH::Expect uses pseudo-hashes, it
> > doesn't seem to work anymore.
> >
> >
>
>
>
RT for rt.cpan.org