[perl.git] branch blead, updated. v5.21.5-368-g99e9fe0

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/99e9fe0391d50fa647edb48024aebdf74f4ee689?hp=a1b22abd29aa292b3a30da993984fc76d6d2e3aa>

- Log -----------------------------------------------------------------
commit 99e9fe0391d50fa647edb48024aebdf74f4ee689
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Mon Nov 10 22:39:21 2014 -0800

    More lex_assign.t fix-ups
    
    Windows sometimes says ‘not implemented’.

M       t/op/lex_assign.t

commit 1c1cfb84a5eec12e6b2129ecb9cf95e00b3311f5
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Mon Nov 10 22:35:44 2014 -0800

    lex_assign.t fix-up
    
    Duh.
    
    If an operator fails (e.g., due to platform incompatibility), the
    assignment won’t happen.  So allow a STORE count of 0 if the eval
    fails.

M       t/op/lex_assign.t
-----------------------------------------------------------------------

Summary of changes:
 t/op/lex_assign.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index 1c6e9f3..e937885 100644
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -93,7 +93,7 @@ EOE
   if ($@) {
     $warning = $@;
     chomp $warning;
-    if ($@ !~ /is unimplemented/) {
+    if ($@ !~ /(?:is un|not )implemented/) {
       fail($_ . ' ' . $warning);
     }
   }
@@ -132,7 +132,7 @@ EOE
     $sc = 0;
     local $SIG{__WARN__} = \&wrn;
     eval "\$m = $op";
-    is $sc, 1, "STORE count for $comment";
+    like $sc, $@ ? qr/^[01]\z/ : qr/^1\z/, "STORE count for $comment";
   }
 }
 
@@ -152,7 +152,7 @@ EOE
   if ($@) {
     $warning = $@;
     chomp $warning;
-    if ($@ =~ /is unimplemented/) {
+    if ($@ =~ /(?:is un|not )implemented/) {
       SKIP: {
         skip $warning, 1;
         pass($comment);

--
Perl5 Master Repository