| Subject: | Text::DHCPLeases |
| Date: | Tue, 12 Feb 2008 12:19:16 -0800 |
| To: | <bug-Text-DHCPleases [...] rt.cpan.org> |
| From: | "Dave Jordan" <djm [...] mcoe.us> |
File: DHCPLeases.pm
Bug:
Can't use an undefined value as an ARRAY reference at
/usr/lib/perl5/site_perl/5.8.8/Text/DHCPLeases.pm line 91
Line 91:
@list = @{$self->{_data}->{leases}->{all}};
Solutions:
I verified that the hash keys do in fact exist, and contain proper data.
while working on debugging this, I had printed out the keys in a foreach
loop, and merely doing so fixed the bug! So I added this line permenantly.
foreach (@{$self->{_data}{leases}{all}}) { };
In context:
89: }else{
90: # Use 'all' array to get real order from file
91: foreach (@{$self->{_data}{leases}{all}}) { };
92: @list = @{$self->{_data}->{leases}->{all}};
93: }
This fixed the bug, go figure? This has to be a Perl error, right?
-Dave