Fix line number test for scalar attribute handlers

Un-TODO the tests for bleadperl and above

diff --git a/ext/Attribute-Handlers/t/linerep.t b/ext/Attribute-Handlers/t/linerep.t
index b743fbb..726a724 100644 (file)
--- a/ext/Attribute-Handlers/t/linerep.t
+++ b/ext/Attribute-Handlers/t/linerep.t
@@ -28,6 +28,7 @@ sub foo :Args(bar) {}
 my $ref;
 sub myref { $ref = shift; }
 my $b;
+#line 42
 eval "my \$bar :SArgs(grumpf); \$b = \\\$bar";
 is( $b, $ref, 'referent' );
 
@@ -41,8 +42,8 @@ sub SArgs : ATTR(SCALAR) {
     is( $data->[0],    'grumpf',       'data' );
     is( $phase,                'CHECK',        'phase' );
     TODO: {
-       local $TODO = "Doesn't work correctly";
+       local $TODO = "Doesn't work correctly" if $] < 5.011;
     is( $filename,     __FILE__,       'filename' );
-    is( $linenum,      28,             'linenum' );
+    is( $linenum,      42,             'linenum' );
     }
 }