From 8af5e433b8bbc0a3741882b08c1c97331fe8df05 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sun, 29 Aug 2010 23:14:26 +0200
Subject: (Hopefully) fix addr: etc. handling. Thx penma.

---
 bin/efa | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/bin/efa b/bin/efa
index b55ffc3..1206f2c 100755
--- a/bin/efa
+++ b/bin/efa
@@ -63,13 +63,13 @@ if (not (@from and @to)) {
 }
 
 for my $pair (
-	[$from[1], \$from_type],
-	[$via[1] , \$via_type ],
-	[$to[1]  , \$to_type  ],
+	[\@from, \$from_type],
+	[\@via , \$via_type ],
+	[\@to  , \$to_type  ],
 ) {
-	next if (not defined $pair->[0]);
+	next if (not defined $pair->[0]->[1]);
 
-	if ($pair->[0] =~ s{ ^ (?<type> [^:]+ ) : \s* (?<target> .+ ) $ }
+	if ($pair->[0]->[1] =~ s{ ^ (?<type> [^:]+ ) : \s* (?<target> .+ ) $ }
 		{$+{target}}x)
 	{
 		given($+{type}) {
-- 
cgit v1.2.3