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 | my $arch = shift; | 36 | my $arch = shift; |
| 37 | if ($arch eq "") { | 37 | if ($arch eq "") { |
| 38 | $arch = `uname -m`; | 38 | $arch = `uname -m`; |
| 39 | chomp($arch); | ||
| 39 | } | 40 | } |
| 40 | 41 | ||
| 41 | $x = "[0-9a-f]"; # hex character | 42 | $x = "[0-9a-f]"; # hex character |
| @@ -91,7 +92,7 @@ my (@stack, $re, $dre, $x, $xs); · 49 unmodified lines | |||
| 91 | # 0: 00 e8 38 01 LINK 0x4e0; | 92 | # 0: 00 e8 38 01 LINK 0x4e0; |
| 92 | $re = qr/.*[[:space:]]LINK[[:space:]]*(0x$x{1,8})/o; | 93 | $re = qr/.*[[:space:]]LINK[[:space:]]*(0x$x{1,8})/o; |
| 93 | } else { | 94 | } else { |
| 94 | print("wrong or unknown architecture\n"); | 95 | print("wrong or unknown architecture \"$arch\"\n"); |
| 95 | exit | 96 | exit |
| 96 | } | 97 | } |
| 97 | } | 98 | } |