Optimized split function

diff --git a/DHCPServer.pm b/DHCPServer.pm
index 539093b34158728d8477cfdbe3d26f2eb591998a..a4a2c7f79c726ae796f786f3a6407847d79059d2 100644 (file)
--- 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 {