uname -m was leaving a newline in $arch, and not passing the tests. Also, printing the unknown arch on failure is probably helpful.
Showing the changes to scripts/checkstack.pl (1 of 1 file). Show all
Unified · Split
| @@ -36,6 +36,7 @@ my (@stack, $re, $dre, $x, $xs); · 35 unmodified lines | ||
| 36 | 36 | my $arch = shift; |
| 37 | 37 | if ($arch eq "") { |
| 38 | 38 | $arch = `uname -m`; |
| 39 | + chomp($arch); | |
| 39 | 40 | } |
| 40 | 41 | |
| 41 | 42 | $x = "[0-9a-f]"; # hex character |
| @@ -91,7 +92,7 @@ my (@stack, $re, $dre, $x, $xs); · 49 unmodified lines | ||
| 91 | 92 | # 0: 00 e8 38 01 LINK 0x4e0; |
| 92 | 93 | $re = qr/.*[[:space:]]LINK[[:space:]]*(0x$x{1,8})/o; |
| 93 | 94 | } else { |
| 94 | − print("wrong or unknown architecture\n"); | |
| 95 | + print("wrong or unknown architecture \"$arch\"\n"); | |
| 95 | 96 | exit |
| 96 | 97 | } |
| 97 | 98 | } |