leaking_addresses: do not parse binary files

Currently script parses binary files.  Since we are scanning for
readable kernel addresses there is no need to parse binary files.  We
can use Perl to check if file is binary and skip parsing it if so.

Do not parse binary files.

Signed-off-by: Tobin C. Harding <me@tobin.cc>

diff --git a/scripts/leaking_addresses.pl b/scripts/leaking_addresses.pl
index 05906f6cf6b9561741ee5e815f34c22b4f3144e7..3d5c3096aac8f0a2537585fa9ccfee32c6556ccf 100755 (executable)
--- a/scripts/leaking_addresses.pl
+++ b/scripts/leaking_addresses.pl
@@ -462,6 +462,10 @@ sub parse_file
                return;
        }
 
+       if (! -T $file) {
+               return;
+       }
+
        if (skip_parse($file)) {
                dprint "skipping file: $file\n";
                return;