From: Brandon L Black Date: Mon, 4 Jun 2007 05:19:14 +0000 (+0000) Subject: tests, little things, 0.07 release X-Git-Tag: 0.07^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff94166e91692aaaab9cc8b493cd753d88e56b2c;p=gitmo%2FClass-C3-XS.git tests, little things, 0.07 release --- diff --git a/ChangeLog b/ChangeLog index 463f8dc..5f4ceee 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ Revision history for Perl extension Class::C3::XS +0.07 Mon Jun 4, 2007 + Fixed "goto &next::method" and related gotos, which fixes + Catalyst::Plugin::C3. + 0.06 Wed May 16, 2007 Removed the "assert(HvAUX(stash))" that was failing for some Now 5.6.x-compatible, thanks to some testing from dec diff --git a/MANIFEST b/MANIFEST index fed1b1d..4a7c655 100644 --- a/MANIFEST +++ b/MANIFEST @@ -22,6 +22,13 @@ t/02_MRO.t t/03_MRO.t t/04_MRO.t t/05_MRO.t +t/30_next_method.t +t/31_next_method_skip.t +t/32_next_method_edge_cases.t +t/33_next_method_used_with_NEXT.t +t/34_next_method_in_eval.t +t/35_next_method_in_anon.t +t/36_next_goto.t t/lib/A.pm t/lib/B.pm t/lib/C.pm diff --git a/Makefile.PL b/Makefile.PL index d9c3e86..26c5c9b 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,13 +1,15 @@ -use inc::Module::Install; +use inc::Module::Install 0.65; name 'Class-C3-XS'; all_from 'lib/Class/C3/XS.pm'; -build_requires 'Test::More' => '0.47'; +requires 'perl' => 5.006_000; +test_requires 'Test::More' => '0.47'; # Rebuild README for maintainers if(-e 'MANIFEST.SKIP') { system("pod2text lib/Class/C3/XS.pm >README"); } +auto_provides; auto_install; WriteAll; diff --git a/XS.xs b/XS.xs index 7f092dc..19340c2 100644 --- a/XS.xs +++ b/XS.xs @@ -311,7 +311,7 @@ XS(XS_Class_C3_XS_nextcan) Perl_croak(aTHX_ "Can't use anonymous symbol table for method lookup"); cxix = __dopoptosub_at(cxstack, cxstack_ix); - cxix = __dopoptosub_at(ccstack, cxix - 1); + cxix = __dopoptosub_at(ccstack, cxix - 1); /* skip next::method, etc */ /* This block finds the contextually-enclosing fully-qualified subname, much like looking at (caller($i))[3] until you find a real sub that diff --git a/lib/Class/C3/XS.pm b/lib/Class/C3/XS.pm index 10e41fe..aab8d46 100644 --- a/lib/Class/C3/XS.pm +++ b/lib/Class/C3/XS.pm @@ -4,7 +4,7 @@ use 5.006_000; use strict; use warnings; -our $VERSION = '0.06'; +our $VERSION = '0.07'; =pod