From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 24 Feb 2009 09:21:09 +0000 (+0100)
Subject: Fix line number test for scalar attribute handlers
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ffb7798185e72d66b671d7209f888cedcf783be;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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' );
     }
 }