aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xscripts/leaking_addresses.pl9
1 files changed, 4 insertions, 5 deletions
diff --git a/scripts/leaking_addresses.pl b/scripts/leaking_addresses.pl
index 6a897788f5a7..ef9e5b2a1614 100755
--- a/scripts/leaking_addresses.pl
+++ b/scripts/leaking_addresses.pl
@@ -97,7 +97,7 @@ Options:
97 --32-bit Scan 32-bit kernel. 97 --32-bit Scan 32-bit kernel.
98 --page-offset-32-bit=o Page offset (for 32-bit kernel 0xABCD1234). 98 --page-offset-32-bit=o Page offset (for 32-bit kernel 0xABCD1234).
99 -d, --debug Display debugging output. 99 -d, --debug Display debugging output.
100 -h, --help, --version Display this help and exit. 100 -h, --help Display this help and exit.
101 101
102Scans the running kernel for potential leaking addresses. 102Scans the running kernel for potential leaking addresses.
103 103
@@ -108,7 +108,6 @@ EOM
108GetOptions( 108GetOptions(
109 'd|debug' => \$debug, 109 'd|debug' => \$debug,
110 'h|help' => \$help, 110 'h|help' => \$help,
111 'version' => \$help,
112 'o|output-raw=s' => \$output_raw, 111 'o|output-raw=s' => \$output_raw,
113 'i|input-raw=s' => \$input_raw, 112 'i|input-raw=s' => \$input_raw,
114 'suppress-dmesg' => \$suppress_dmesg, 113 'suppress-dmesg' => \$suppress_dmesg,
@@ -231,7 +230,7 @@ sub get_kernel_config_option
231 my $tmp_file = "/tmp/tmpkconf"; 230 my $tmp_file = "/tmp/tmpkconf";
232 231
233 if (system("gunzip < /proc/config.gz > $tmp_file")) { 232 if (system("gunzip < /proc/config.gz > $tmp_file")) {
234 dprint "$0: system(gunzip < /proc/config.gz) failed\n"; 233 dprint("system(gunzip < /proc/config.gz) failed\n");
235 return ""; 234 return "";
236 } else { 235 } else {
237 @config_files = ($tmp_file); 236 @config_files = ($tmp_file);
@@ -243,7 +242,7 @@ sub get_kernel_config_option
243 } 242 }
244 243
245 foreach my $file (@config_files) { 244 foreach my $file (@config_files) {
246 dprint("parsing config file: %s\n", $file); 245 dprint("parsing config file: $file\n");
247 $value = option_from_file($option, $file); 246 $value = option_from_file($option, $file);
248 if ($value ne "") { 247 if ($value ne "") {
249 last; 248 last;
@@ -502,7 +501,7 @@ sub walk
502 next; 501 next;
503 } 502 }
504 503
505 dprint "parsing: $path\n"; 504 dprint("parsing: $path\n");
506 timed_parse_file($path); 505 timed_parse_file($path);
507 } 506 }
508 } 507 }