(perl) machines file: support machine lines with multiple spaces between fields

2021-10-24 21:24:24 -04:00
parent b817124337
commit 5fbf1470bd
2 changed files with 10 additions and 1 deletions
--- a/src/lib/Hydra/Helper/Nix.pm
+++ b/src/lib/Hydra/Helper/Nix.pm
@ -347,7 +347,7 @@ sub getMachines {
            chomp($line);
            $line =~ s/\#.*$//g;
            next if $line =~ /^\s*$/;
-            my @tokens = split /\s/, $line;
+            my @tokens = split /\s+/, $line;

            if (!defined($tokens[5]) || $tokens[5] eq "-") {
                $tokens[5] = "";