On Jan 5, 2004, at 12:32 PM, drieux wrote:
On Jan 5, 2004, at 10:49 AM, Paul Kraus wrote:
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
waitpid $pid, 0;
if ( $? >> 8 ) {
my $errstr = join('', <$error>);
#chomp(my $errstr = <$error>);
$self->{errstr} = $errstr;
0;
} else {
1;
}
WOW - did I miss a part of that:
notice the problem of
my $errstr = join('', <$error>);
That is what I would be looking for as the oddity, since it would seem that the secquence there is what is "killing you".
ciao drieux
---
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
