From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 17 Nov 2008 08:30:52 +0000 (+0000)
Subject: Upgrade to Attribute::Handlers 0.81
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e016bc2d267abd0d94b4a9c812dff40f050ee988;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Attribute::Handlers 0.81

p4raw-id: //depot/perl@34862
---

diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm
index fe404c8..4f6c019 100644
--- a/lib/Attribute/Handlers.pm
+++ b/lib/Attribute/Handlers.pm
@@ -4,7 +4,7 @@ use Carp;
 use warnings;
 use strict;
 use vars qw($VERSION $AUTOLOAD);
-$VERSION = '0.80';
+$VERSION = '0.81';
 # $DB::single=1;
 
 my %symcache;
diff --git a/lib/Attribute/Handlers/Changes b/lib/Attribute/Handlers/Changes
index 2b7849c..06e47ff 100644
--- a/lib/Attribute/Handlers/Changes
+++ b/lib/Attribute/Handlers/Changes
@@ -113,3 +113,6 @@ Revision history for Perl extension Attribute::Handlers
 0.80	Fri Oct 24 12:06:00 CEST 2008
         - CPAN release of the Attribute::Handlers version in bleadperl.
 	
+0.81	Sun Nov  9 22:47:00 CET 2008
+        - Fix to make tests work on 5.6.X (Eric Rybski, RT #40781)
+	
diff --git a/lib/Attribute/Handlers/t/linerep.t b/lib/Attribute/Handlers/t/linerep.t
index 9b3da8e..b743fbb 100644
--- a/lib/Attribute/Handlers/t/linerep.t
+++ b/lib/Attribute/Handlers/t/linerep.t
@@ -25,13 +25,17 @@ sub Args : ATTR(CODE) {
 
 sub foo :Args(bar) {}
 
-my $bar :SArgs(grumpf);
+my $ref;
+sub myref { $ref = shift; }
+my $b;
+eval "my \$bar :SArgs(grumpf); \$b = \\\$bar";
+is( $b, $ref, 'referent' );
 
 sub SArgs : ATTR(SCALAR) {
     my ($package, $symbol, $referent, $attr, $data, $phase, $filename, $linenum) = @_;
     is( $package,	'main',		'package' );
     is( $symbol,	'LEXICAL',	'symbol' );
-    is( $referent,	\$bar,		'referent' );
+    myref($referent);
     is( $attr,		'SArgs',	'attr' );
     is( ref $data,	'ARRAY',	'data' );
     is( $data->[0],	'grumpf',	'data' );