This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bisect-runner.pl: Don’t use /a
authorFather Chrysostomos <sprout@cpan.org>
Tue, 17 May 2016 09:26:21 +0000 (02:26 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 17 May 2016 09:26:44 +0000 (02:26 -0700)
It’s convenient to be able to run it under the system perl, which
might be too old for /a.

In this code path, the utf8 flag will be off anyway.

Porting/bisect-runner.pl

index 5c228b8..4c1cce9 100755 (executable)
@@ -1249,7 +1249,7 @@ sub match_and_exit {
         while (<$fh>) {
             if ($_ =~ $re) {
                 ++$matches;
-                if (/[^[:^cntrl:]\h\v]/a) { # Matches non-spacing non-C1 controls
+                if (/[^[:^cntrl:]\h\v]/) { # Matches non-spacing non-C1 controls
                     print "Binary file $file matches\n";
                 } else {
                     $_ .= "\n" unless /\n\z/;