In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7fecd077a7bc92add80772966a8c824277223d09?hp=8024b5df24675d60f6262988f448e15a0d1f5af0>
- Log ----------------------------------------------------------------- commit 7fecd077a7bc92add80772966a8c824277223d09 Author: Rafael Garcia-Suarez <[email protected]> Date: Thu May 14 15:14:42 2009 +0200 Fix failing autodie test with new smartmatch semantics. This is because ~~ overloading is now only taken into account when the object is on the right of the operator. ----------------------------------------------------------------------- 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 2f8c238..60d5d95 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
