summaryrefslogtreecommitdiff
path: root/Echolot/Storage/File.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-03 01:07:16 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-03 01:07:16 +0000
commit7f73e95538c838609783e28a70bdeff9ac768790 (patch)
tree01dfc57b6ef4149f6170d8226197415cc35fc408 /Echolot/Storage/File.pm
parentadb1bd2d12d6dd83098e0aa1137867629046e1da (diff)
fix undefined value bug
Diffstat (limited to 'Echolot/Storage/File.pm')
-rw-r--r--Echolot/Storage/File.pm3
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'};