This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Attribute::Handlers 0.81
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Nov 2008 08:30:52 +0000 (08:30 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Nov 2008 08:30:52 +0000 (08:30 +0000)
p4raw-id: //depot/perl@34862

lib/Attribute/Handlers.pm
lib/Attribute/Handlers/Changes
lib/Attribute/Handlers/t/linerep.t

index fe404c8..4f6c019 100644 (file)
@@ -4,7 +4,7 @@ use Carp;
 use warnings;
 use strict;
 use vars qw($VERSION $AUTOLOAD);
 use warnings;
 use strict;
 use vars qw($VERSION $AUTOLOAD);
-$VERSION = '0.80';
+$VERSION = '0.81';
 # $DB::single=1;
 
 my %symcache;
 # $DB::single=1;
 
 my %symcache;
index 2b7849c..06e47ff 100644 (file)
@@ -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.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)
+       
index 9b3da8e..b743fbb 100644 (file)
@@ -25,13 +25,17 @@ sub Args : ATTR(CODE) {
 
 sub foo :Args(bar) {}
 
 
 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' );
 
 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' );
     is( $attr,         'SArgs',        'attr' );
     is( ref $data,     'ARRAY',        'data' );
     is( $data->[0],    'grumpf',       'data' );