diff options
| author | Joachim Tingvold <joachim@tingvold.com> | 2015-04-01 03:50:56 +0200 |
|---|---|---|
| committer | root <root@einstein.tg15.gathering.org> | 2015-04-01 03:50:56 +0200 |
| commit | cfa430c07029868bdfd65714fd4974892467b4f4 (patch) | |
| tree | 99972c5503af560332f053c13326498f7466c0ae /clients/smanagrun.pl | |
| parent | d284e121df845de3118b720e374bf3bcfd1c9317 (diff) | |
Changes...
Diffstat (limited to 'clients/smanagrun.pl')
| -rwxr-xr-x | clients/smanagrun.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/clients/smanagrun.pl b/clients/smanagrun.pl index 9e3c850..0e2302e 100755 --- a/clients/smanagrun.pl +++ b/clients/smanagrun.pl @@ -112,10 +112,10 @@ while (1) { my @data; my @commands = split(/[\r\n\000]+/, $row->{cmd}); for my $cmd (@commands) { - print "sysname: $sysname cmd: $cmd\n"; next unless $cmd =~ /\S/; # ignorer linjer med kun whitespace - push @data, "# $cmd"; $cmd =~ s/%SYSNAME%/$sysname/g; + print "sysname: $sysname cmd: $cmd\n"; + push @data, "# $cmd"; if ($cmd =~ /^#\s*require-version\s+(.*\S)\s*$/) { my $required_version = $1; my $version; |