From: Steve Hay Date: Thu, 19 Mar 2009 15:43:49 +0000 (+0000) Subject: Upgrade to Attribute-Handlers-0.83 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5bc8ef5059e42d7960e39ba0e920933e41370b70;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Attribute-Handlers-0.83 --- diff --git a/ext/Attribute-Handlers/Changes b/ext/Attribute-Handlers/Changes index 212a998..394ef52 100644 --- a/ext/Attribute-Handlers/Changes +++ b/ext/Attribute-Handlers/Changes @@ -119,4 +119,6 @@ Revision history for Perl extension Attribute::Handlers 0.82 Wed Mar 11 17:17:00 CET 2009 - Bring test code in line with core perl. - +0.83 Fri Mar 13 15:14:00 CET 2009 + - Re-add a TODO marker in the tests that would fail on 5.6.2. + diff --git a/ext/Attribute-Handlers/lib/Attribute/Handlers.pm b/ext/Attribute-Handlers/lib/Attribute/Handlers.pm index 1d28768..aba1138 100644 --- a/ext/Attribute-Handlers/lib/Attribute/Handlers.pm +++ b/ext/Attribute-Handlers/lib/Attribute/Handlers.pm @@ -4,7 +4,7 @@ use Carp; use warnings; use strict; use vars qw($VERSION $AUTOLOAD); -$VERSION = '0.82'; +$VERSION = '0.83'; # $DB::single=1; my %symcache; diff --git a/ext/Attribute-Handlers/t/linerep.t b/ext/Attribute-Handlers/t/linerep.t index 76f6399..e417de5 100644 --- a/ext/Attribute-Handlers/t/linerep.t +++ b/ext/Attribute-Handlers/t/linerep.t @@ -41,6 +41,9 @@ sub SArgs : ATTR(SCALAR) { is( ref $data, 'ARRAY', 'data' ); is( $data->[0], 'grumpf', 'data' ); is( $phase, 'CHECK', 'phase' ); - is( $filename, __FILE__, 'filename' ); - is( $linenum, 42, 'linenum' ); + TODO: { + local $TODO = "Doesn't work correctly" if $] < 5.008; + is( $filename, __FILE__, 'filename' ); + is( $linenum, 42, 'linenum' ); + } }