From c7e025df45543cbe373c71789516b29672f027cb Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Mon, 24 Feb 2003 16:18:41 +0000
Subject: Add warning

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

(limited to 'Echolot/Storage')

diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm
index e2ac834..9c3ab34 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.57 2003/02/22 21:01:06 weasel Exp $
+# $Id: File.pm,v 1.58 2003/02/24 16:18:41 weasel Exp $
 #
 
 =pod
@@ -744,6 +744,7 @@ sub get_chainpings($$) {
 		map {
 			chomp;
 			my @a = split;
+			Echolot::Log::warn("'$_' has not 7 fields") if (scalar @a < 7);
 			{	sent  => $a[0],
 				addr1 => $a[1],
 				type1 => $a[2],
-- 
cgit v1.2.3