Change 34862 by [EMAIL PROTECTED] on 2008/11/17 08:30:52
Upgrade to Attribute::Handlers 0.81
Affected files ...
... //depot/perl/lib/Attribute/Handlers.pm#41 edit
... //depot/perl/lib/Attribute/Handlers/Changes#11 edit
... //depot/perl/lib/Attribute/Handlers/t/linerep.t#3 edit
Differences ...
==== //depot/perl/lib/Attribute/Handlers.pm#41 (text) ====
Index: perl/lib/Attribute/Handlers.pm
--- perl/lib/Attribute/Handlers.pm#40~34584~ 2008-10-25 05:04:36.000000000
-0700
+++ perl/lib/Attribute/Handlers.pm 2008-11-17 00:30:52.000000000 -0800
@@ -4,7 +4,7 @@
use warnings;
use strict;
use vars qw($VERSION $AUTOLOAD);
-$VERSION = '0.80';
+$VERSION = '0.81';
# $DB::single=1;
my %symcache;
==== //depot/perl/lib/Attribute/Handlers/Changes#11 (text) ====
Index: perl/lib/Attribute/Handlers/Changes
--- perl/lib/Attribute/Handlers/Changes#10~34584~ 2008-10-25
05:04:36.000000000 -0700
+++ perl/lib/Attribute/Handlers/Changes 2008-11-17 00:30:52.000000000 -0800
@@ -113,3 +113,6 @@
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)
+
==== //depot/perl/lib/Attribute/Handlers/t/linerep.t#3 (text) ====
Index: perl/lib/Attribute/Handlers/t/linerep.t
--- perl/lib/Attribute/Handlers/t/linerep.t#2~32582~ 2007-12-06
02:59:27.000000000 -0800
+++ perl/lib/Attribute/Handlers/t/linerep.t 2008-11-17 00:30:52.000000000
-0800
@@ -25,13 +25,17 @@
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' );
End of Patch.
