Upgrade to Attribute-Handlers-0.83

diff --git a/ext/Attribute-Handlers/Changes b/ext/Attribute-Handlers/Changes
index 212a998..394ef52 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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' );
+    }
 }