checkstack.pl: fix arch autodetection
authorBernhard Reutner-Fischer <rep.dot.nop@gmail.com>
Thu, 17 Jan 2019 20:53:53 +0000 (21:53 +0100)
committerBernhard Reutner-Fischer <rep.dot.nop@gmail.com>
Thu, 17 Jan 2019 21:59:45 +0000 (22:59 +0100)
chomp trailing newlines

Signed-off-by: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>
scripts/checkstack.pl

index 55cdd78c1f26d1bd8be8acba1b86fcef89035f8a..b5980a2e3bafad8bb1c9149961397f7be0aca2f6 100755 (executable)
@@ -32,6 +32,7 @@ my (@stack, $re, $x, $xs);
        my $arch = shift;
        if ($arch eq "") {
                $arch = `uname -m`;
+               1 while chomp $arch;
        }
 
        $x      = "[0-9a-f]";   # hex character