diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-03 01:07:16 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-03 01:07:16 +0000 |
| commit | 7f73e95538c838609783e28a70bdeff9ac768790 (patch) | |
| tree | 01dfc57b6ef4149f6170d8226197415cc35fc408 | |
| parent | adb1bd2d12d6dd83098e0aa1137867629046e1da (diff) | |
fix undefined value bug
| -rw-r--r-- | Echolot/Storage/File.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index 31da00b..e082fbd 100644 --- a/Echolot/Storage/File.pm +++ b/Echolot/Storage/File.pm @@ -1,7 +1,7 @@ package Echolot::Storage::File; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: File.pm,v 1.23 2002/07/03 01:06:13 weasel Exp $ +# $Id: File.pm,v 1.24 2002/07/03 01:07:16 weasel Exp $ # =pod @@ -532,6 +532,7 @@ sub add_address($$) { my @all_addresses = $self->get_addresses(); my $maxid = $self->{'METADATA'}->{'addresses_maxid'}; unless (defined $maxid) { + $maxid = 0; for my $addr (@all_addresses) { if ($addr->{'id'} > $maxid) { $maxid = $addr->{'id'}; |