diff options
| author | Karl Williamson <khw@cpan.org> | 2015-05-16 09:49:22 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-08-10 13:15:23 -0600 |
| commit | 1e38156c8ea63eab098ce4ef5b3ddaff3f1dd36f (patch) | |
| tree | ad02ab72d88120a504f5403b7c35be205aefbbee | |
| parent | d29663db9ff1074310fa81f41182918928df4661 (diff) | |
| download | perl-1e38156c8ea63eab098ce4ef5b3ddaff3f1dd36f.tar.gz | |
Porting/bisect-runner.pl: Generalize for EBCDIC
This commit changes to not use hard-coded code point numbers so that it
also works on EBCDIC platforms. An unintended consequence is that the
VT and \f spacing controls aren't considered a sign of binary. That
seems correct to me.
| -rwxr-xr-x | Porting/bisect-runner.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl index 417ac2b6dc..5c228b8f36 100755 --- a/Porting/bisect-runner.pl +++ b/Porting/bisect-runner.pl @@ -1249,7 +1249,7 @@ sub match_and_exit { while (<$fh>) { if ($_ =~ $re) { ++$matches; - if (tr/\t\r\n -~\200-\377//c) { + if (/[^[:^cntrl:]\h\v]/a) { # Matches non-spacing non-C1 controls print "Binary file $file matches\n"; } else { $_ .= "\n" unless /\n\z/; |