[perl.git] branch blead, updated. v5.27.0-319-g393b66efc9

[Dagfinn Ilmari Mannsåker]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/393b66efc9e80151892c3fd5d7b72ed22511485d?hp=a10e04b588b6b10ac6d059efacd8dec25d14bdb3>

- Log -----------------------------------------------------------------
commit 393b66efc9e80151892c3fd5d7b72ed22511485d
Author: Dagfinn Ilmari Mannsåker <ilm...@ilmari.org>
Date:   Thu Jun 15 16:14:06 2017 +0100

    Avoid ++ in test.pl
    
    The header comment warns to keep it simple, and specifically against
    ++ due to its cleverness for string magic auto-increment, but a couple
    of places had missed the memo.
-----------------------------------------------------------------------

Summary of changes:
 t/test.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/test.pl b/t/test.pl
index d86f6332b3..79e6e25e95 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -860,7 +860,7 @@ sub unlink_all {
        if( -f $file ){
            _print_stderr "# Couldn't unlink '$file': $!\n";
        }else{
-           ++$count;
+           $count = $count + 1; # don't use ++
        }
     }
     $count;
@@ -1141,7 +1141,7 @@ sub setup_multiple_progs {
         my $found;
         while (<$fh>) {
             if (/^__END__/) {
-                ++$found;
+                $found = $found + 1; # don't use ++
                 last;
             }
         }

--
Perl5 Master Repository