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: [PATCH] (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}) {
--
GitLab