Yesterday on our mongers meeting Abigail demo'd Lexical::Atributes We all tried (SuSE 9.1, Mac OS X, Debian, RedHat, ...) and many systems did not pass the test.
One of the reasons was that the Filter::Simple in 5.8.0 has version 0.78, but it is not the same as the 0.78 in 5.8.1 and on, but that's not why I send this post All tests pass for T::M 0.47, but fail on 0.54 Same for Abe's V module http://www.test-smoke.org/download/V-0.10.tar.gz http://search.cpan.org/CPAN/authors/id/A/AB/ABIGAIL/Lexical-Attributes-1.1.tar.gz Note the comments that are shown: lt09:/pro/3gl/CPAN/Lexical-Attributes-1.1 109 > prove -lv t/30_overload.t t/30_overload....<< use overload '""' => \&stringify; my %key1;my %key2; my %key3; sub key3 {my $_key = Scalar::Util::refaddr shift; $key3 {$_key} = shift if @_; $key3 {$_key};} sub new { bless [] => shift; } sub load_me { my $self = shift; $key1 {Scalar::Util::refaddr $self} = shift if @_; $key2 {Scalar::Util::refaddr $self} = shift if @_; $key3 {Scalar::Util::refaddr $self} = shift if @_; } sub stringify { my $self = shift; "key1 = " . $key1 {Scalar::Util::refaddr $self} . "; key2 = " . $key2 {Scalar::Util::refaddr $self} . "; key3 = " . $key3 {Scalar::Util::refaddr $self}; } 1; sub DESTROY {my $self = shift; delete $key2 {Scalar::Util::refaddr $self};delete $key1 {Scalar::Util::refaddr $self};delete $key3 {Scalar::Util::refaddr $self};}>> ok 1 - use Overload; ok 2 - $VERSION ok 3 - The object isa Overload ok 4 - The object isa Overload Use of uninitialized value in hash element at Overload.pm line 23. Use of uninitialized value in concatenation (.) or string at Overload.pm line 23. Use of uninitialized value in hash element at Overload.pm line 23. Use of uninitialized value in concatenation (.) or string at Overload.pm line 23. Use of uninitialized value in hash element at Overload.pm line 23. Use of uninitialized value in concatenation (.) or string at Overload.pm line 23. ok 5 - key1 = ; key2 = ; key3 = Use of uninitialized value in hash element at Overload.pm line 23. Use of uninitialized value in concatenation (.) or string at Overload.pm line 23. Use of uninitialized value in hash element at Overload.pm line 23. Use of uninitialized value in concatenation (.) or string at Overload.pm line 23. Use of uninitialized value in hash element at Overload.pm line 23. Use of uninitialized value in concatenation (.) or string at Overload.pm line 23. ok 6 - key1 = ; key2 = ; key3 = 1..6 ok All tests successful. Files=1, Tests=6, 0 wallclock secs ( 0.18 cusr + 0.00 csys = 0.18 CPU) lt09:/pro/3gl/CPAN/Lexical-Attributes-1.1 110 > lt09:/pro/3gl/CPAN/Lexical-Attributes-1.1 121 > env PERL5LIB=/pro/3gl/CPAN/Test-Simple-0.47:/pro/3gl/CPAN/Test-Simple-0.47/blib:/ pro/3gl/CPAN/Test-Simple-0.47/blib/lib:/pro/3gl/CPAN/Test-Simple-0.47/blib/ar ch make test PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/10_basic..........ok t/20_inheritance....ok t/30_overload.......ok t/40_destroy........ok t/80_duplicate......ok All tests successful. Files=5, Tests=347, 3 wallclock secs ( 2.39 cusr + 0.03 csys = 2.42 CPU) lt09:/pro/3gl/CPAN/Lexical-Attributes-1.1 122 > lt09:/pro/3gl/CPAN/Lexical-Attributes-1.1 122 > env PERL5LIB=/pro/3gl/CPAN/Test-Simple-0.47:/pro/3gl/CPAN/Test-Simple-0.47/blib:/ pro/3gl/CPAN/Test-Simple-0.47/blib/lib:/pro/3gl/CPAN/Test-Simple-0.47/blib/ar ch prove -bv t/30_overload.t t/30_overload....<< use overload '""' => \&stringify; my %key1;my %key2; my %key3; sub key3 {my $_key = Scalar::Util::refaddr shift; $key3 {$_key} = shift if @_; $key3 {$_key};} sub new { bless [] => shift; } sub load_me { my $self = shift; $key1 {Scalar::Util::refaddr $self} = shift if @_; $key2 {Scalar::Util::refaddr $self} = shift if @_; $key3 {Scalar::Util::refaddr $self} = shift if @_; } sub stringify { my $self = shift; "key1 = " . $key1 {Scalar::Util::refaddr $self} . "; key2 = " . $key2 {Scalar::Util::refaddr $self} . "; key3 = " . $key3 {Scalar::Util::refaddr $self}; } 1; sub DESTROY {my $self = shift; delete $key2 {Scalar::Util::refaddr $self};delete $key1 {Scalar::Util::refaddr $self};delete $key3 {Scalar::Util::refaddr $self};}>> ok 1 - use Overload; ok 2 - $VERSION ok 3 - The object isa Overload ok 4 - The object isa Overload ok 5 - Overload ok 6 - Overload 1..6 ok All tests successful. Files=1, Tests=6, 0 wallclock secs ( 0.18 cusr + 0.00 csys = 0.18 CPU) lt09:/pro/3gl/CPAN/Lexical-Attributes-1.1 123 > -- H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/) using Perl 5.6.2, 5.8.0, 5.8.3, & 5.9.2 on HP-UX 10.20, 11.00 & 11.11, AIX 4.3, SuSE 9.0 pro 2.4.21 & Win2k. http://www.cmve.net/~merijn Smoking perl: smokers@perl.org, perl QA: http://qa.perl.org reports to: [EMAIL PROTECTED], perl-qa@perl.org
