[perl.git] branch blead, updated. v5.25.0-127-g72e1194

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/72e11947ab9e3d00b1e7fb7fd4f7bbbaa9d8b69d?hp=68aa5120544a128fb0aa6b9af76179ffb895cdd8>

- Log -----------------------------------------------------------------
commit 72e11947ab9e3d00b1e7fb7fd4f7bbbaa9d8b69d
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Tue May 17 02:26:21 2016 -0700

    bisect-runner.pl: Don’t use /a
    
    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.
-----------------------------------------------------------------------

Summary of changes:
 Porting/bisect-runner.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl
index 5c228b8..4c1cce9 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 (/[^[:^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/;

--
Perl5 Master Repository