This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Attribute-Handlers-0.83
authorSteve Hay <SteveHay@planit.com>
Thu, 19 Mar 2009 15:43:49 +0000 (15:43 +0000)
committerSteve Hay <SteveHay@planit.com>
Thu, 19 Mar 2009 15:43:49 +0000 (15:43 +0000)
ext/Attribute-Handlers/Changes
ext/Attribute-Handlers/lib/Attribute/Handlers.pm
ext/Attribute-Handlers/t/linerep.t

index 212a998..394ef52 100644 (file)
@@ -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.
+
index 1d28768..aba1138 100644 (file)
@@ -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;
index 76f6399..e417de5 100644 (file)
@@ -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' );
+    }
 }