From: Brandon L Black <blblack@gmail.com>
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