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 05906f6..3d5c309 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;