diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-24 16:18:41 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-24 16:18:41 +0000 |
| commit | c7e025df45543cbe373c71789516b29672f027cb (patch) | |
| tree | 882c94f4a2d249b272e5859aae987d36b54d3095 | |
| parent | caeed41915d4c3218877f11b39251881f06d1d09 (diff) | |
Add warning
| -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 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], |