Net -> SCP - errstr uninitialized

[Paul Kraus]

Code
----
#!/usr/bin/perl

use strict;
use warnings;

&dhcpd;

sub dhcpd {
  use Text::DHCPparse;
  use Net::SCP qw( scp iscp );
  my $scp = Net::SCP -> new( 'hylafax', 'pkraus' );
  $scp -> get ( 'dhcpd.leases' ) or die $scp->{errstr};
  print "hello\n";
}

Error
-----
Use of uninitilazed value in die at C:\Documents and Settings\pdk\My
Documents\perl code\squidlogs\squid.pl line12. Died at C:\... line 12

 Paul Kraus
 -----------------------
 PEL Supply Company
 Network Administrator
 -----------------------
 800 321-1264 Toll Free
 216 267-5775 Voice
 216 267-6176 Fax
 www.pelsupply.com
 -----------------------



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>