From 06a005c89d560d0ff05f8e7999492691ef7320d8 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Tue, 17 Mar 2009 18:44:26 +0100
Subject: efa: Don't touch $raw while parsing

---
 bin/efa | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/efa b/bin/efa
index 6c47f64..57d2f29 100755
--- a/bin/efa
+++ b/bin/efa
@@ -103,7 +103,7 @@ for ($offer = 0; exists($raw->[$offer]); $offer++) {
 		# If the first field is not a time we've got some additional information.
 		# Sadly, this script does not parse it yet, so it's ignored
 		until ($raw->[$offer]->[$offset] =~ /^\d+:\d+$/) {
-			splice(@{$raw->[$offer]}, $offset, 1) or last;
+			last unless exists($raw->[$offer]->[++$offset]);
 		}
 		$cons->[$offer]->[$i] = {
 			deptime  => $raw->[$offer]->[$offset],
-- 
cgit v1.2.3