summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-08-29 23:14:26 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-08-29 23:14:26 +0200
commit8af5e433b8bbc0a3741882b08c1c97331fe8df05 (patch)
treed52dc305c7ad7502c9c42a982e1917a149a94c6c /bin
parentf0295359114d181fc063f269b3eb52d2221a97ec (diff)
(Hopefully) fix addr: etc. handling. Thx penma.
Diffstat (limited to 'bin')
-rwxr-xr-xbin/efa10
1 files 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}) {