In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/46e4e78b248dcd435e4df8df789a65f8a29d0e6a?hp=0747ec99a32e0452638804aaadda54efb0b2eb5f>
- Log ----------------------------------------------------------------- commit 46e4e78b248dcd435e4df8df789a65f8a29d0e6a Author: Vincent Pit <[email protected]> Date: Sat May 9 14:19:19 2009 +0200 Allow typed arrays and hashes (Just the Attribute-Handlers test cherry-picked from d5e98372e6efc414e818f1ed2d33156eb6ca6200) M ext/Attribute-Handlers/t/multi.t commit 3bbad76083f0277a40cde8e38db697825ee40e1f Author: David Mitchell <[email protected]> Date: Fri Jul 3 19:56:46 2009 +0100 Make the maint Maintainers.pl match maint versions M Porting/Maintainers.pl ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 6 +++--- ext/Attribute-Handlers/t/multi.t | 20 ++++++++++++++++++++ 2 files changed, 23 insertions(+), 3 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 563db24..35a52b8 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -443,7 +443,7 @@ package Maintainers; 'CPANPLUS' => { 'MAINTAINER' => 'kane', - 'DISTRIBUTION' => 'KANE/CPANPLUS-0.87_03.tar.gz', + 'DISTRIBUTION' => 'KANE/CPANPLUS-0.8601.tar.gz', 'FILES' => q[lib/CPANPLUS.pm lib/CPANPLUS/Backend lib/CPANPLUS/Backend.pm @@ -688,7 +688,7 @@ package Maintainers; 'ExtUtils::MakeMaker' => { 'MAINTAINER' => 'mschwern', - 'DISTRIBUTION' => 'MSCHWERN/ExtUtils-MakeMaker-6.53_02.tar.gz', + 'DISTRIBUTION' => 'MSCHWERN/ExtUtils-MakeMaker-6.50.tar.gz', # note that t/lib/TieOut.pm is included in # more than one distro 'FILES' => q[lib/ExtUtils/{Liblist,MakeMaker,Mkbootstrap,Mksymlists,MM*,MY,testlib}.pm @@ -1500,7 +1500,7 @@ package Maintainers; 'Pod::Perldoc' => { 'MAINTAINER' => 'ferreira', - 'DISTRIBUTION' => 'FERREIRA/Pod-Perldoc-3.15.tar.gz', + 'DISTRIBUTION' => 'FERREIRA/Pod-Perldoc-3.14_04.tar.gz', 'FILES' => q[lib/Pod/Perldoc.pm lib/Pod/Perldoc pod/perldoc.pod diff --git a/ext/Attribute-Handlers/t/multi.t b/ext/Attribute-Handlers/t/multi.t index a8156c2..31b24d1 100644 --- a/ext/Attribute-Handlers/t/multi.t +++ b/ext/Attribute-Handlers/t/multi.t @@ -7,6 +7,10 @@ BEGIN { } } +# This test file contains 57 tests. +# You need to number them manually. Don't forget to update this line for the +# next kind hacker. + END {print "not ok 1\n" unless $loaded;} use v5.6.0; use Attribute::Handlers; @@ -56,6 +60,22 @@ sub x1 :Lastly(1,44) {} my Test $x2 :Dokay(1,5); +if ($] < 5.011) { + ::ok(1, $_, '# skip : invalid before 5.11') for 55 .. 57; +} else { + my $c = $::count; + eval ' + my Test @x2 :Dokay(1,55); + my Test %x2 :Dokay(1,56); + '; + $c = $c + 2 - $::count; + while ($c > 0) { + ::ok(0, 57 - $c); + --$c; + } + ::ok(!$@, 57); +} + package Test; my $x3 :Dokay(1,6); my Test $x4 :Dokay(1,7); -- Perl5 Master Repository
