From 84b2237b1dbf754dee6b2b4f28af47f9ef2e53a1 Mon Sep 17 00:00:00 2001 From: Michael Rasmussen Date: Tue, 22 Jul 2014 04:03:52 +0200 Subject: [PATCH] Optimized split function --- DHCPServer.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/DHCPServer.pm b/DHCPServer.pm index 539093b..a4a2c7f 100644 --- a/DHCPServer.pm +++ b/DHCPServer.pm @@ -541,11 +541,7 @@ sub read_config { if ($subopt) { if ($_ =~ /^\s*(allow|static)\s+(.+)\s*;/) { my (@vals, @tmp); - @tmp = split(/,\s*/, $2); - foreach (@tmp) { - s/^\s+|\s+$//g; - push @vals, $_; - } + @vals = split(/\s*,\s*/, $2); $config->{$1} = [@vals]; $self->logger("Key: $1 Value: $2"); } else { -- 2.39.2