[perl.git] branch blead, updated. GitLive-blead-1192-g035fa39

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/035fa39eee98425014af34fb056b07c8b4edc4c8?hp=e21a6cc6e23cb05573794c3438f5a45564a045d6>

- Log -----------------------------------------------------------------
commit 035fa39eee98425014af34fb056b07c8b4edc4c8
Author: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date:   Mon May 25 07:54:04 2009 +0200

    Revert "Fix failing autodie test with new smartmatch semantics."
    
    This should now work, since we now allow objects with ~~-overloading
    on the left side of ~~.
    
    This reverts commit 7fecd077a7bc92add80772966a8c824277223d09.
-----------------------------------------------------------------------

Summary of changes:
 lib/autodie/t/exceptions.t |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/autodie/t/exceptions.t b/lib/autodie/t/exceptions.t
index 60d5d95..2f8c238 100644
--- a/lib/autodie/t/exceptions.t
+++ b/lib/autodie/t/exceptions.t
@@ -18,10 +18,10 @@ eval {
 };
 
 ok($@,			"Exception thrown"		        );
-ok('open'  ~~ $@,	"Exception from open"		        );
-ok(':file' ~~ $@,	"Exception from open / class :file"	);
-ok(':io'   ~~ $@,	"Exception from open / class :io"	);
-ok(':all'  ~~ $@,	"Exception from open / class :all"	);
+ok($@ ~~ 'open',	"Exception from open"		        );
+ok($@ ~~ ':file',	"Exception from open / class :file"	);
+ok($@ ~~ ':io',		"Exception from open / class :io"	);
+ok($@ ~~ ':all',	"Exception from open / class :all"	);
 
 eval {
     no warnings 'once';    # To prevent the following close from complaining.
@@ -38,8 +38,8 @@ eval {
 like($@, qr{Can't close filehandle 'THIS_FILEHANDLE_AINT_OPEN'},"Nice msg from close");
 
 ok($@,			"Exception thrown"		        );
-ok('close' ~~ $@,	"Exception from close"		        );
-ok(':file' ~~ $@,	"Exception from close / class :file"	);
-ok(':io'   ~~ $@,	"Exception from close / class :io"	);
-ok(':all'  ~~ $@,	"Exception from close / class :all"	);
+ok($@ ~~ 'close',	"Exception from close"		        );
+ok($@ ~~ ':file',	"Exception from close / class :file"	);
+ok($@ ~~ ':io',		"Exception from close / class :io"	);
+ok($@ ~~ ':all',	"Exception from close / class :all"	);
 

--
Perl5 Master Repository

• [perl.git] branch blead, updated. GitLive-blead-1192-g035fa39 by Rafael Garcia-Suarez