diff options
Diffstat (limited to 'scripts/checkstack.pl')
-rwxr-xr-x | scripts/checkstack.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl index 358f96c75b43..3eca62566d6b 100755 --- a/scripts/checkstack.pl +++ b/scripts/checkstack.pl | |||
@@ -36,6 +36,7 @@ my (@stack, $re, $dre, $x, $xs); | |||
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); | |||
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 | } |