From 7f73e95538c838609783e28a70bdeff9ac768790 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 3 Jul 2002 01:07:16 +0000
Subject: fix undefined value bug

---
 Echolot/Storage/File.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Echolot')

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'};
-- 
cgit v1.2.3