From: Brandon L Black Date: Sat, 12 May 2007 20:43:28 +0000 (+0000) Subject: 0.04 (MRO::Compat helper) X-Git-Tag: 0.04^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8feecaf97e81e3d1ef573a1bfef9abde9d55e0b1;p=gitmo%2FClass-C3-XS.git 0.04 (MRO::Compat helper) --- diff --git a/ChangeLog b/ChangeLog index 54e9a48..f028c7e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ Revision history for Perl extension Class::C3::XS +0.04 Sat May 12, 2007 + Small new private feature to help MRO::Compat + 0.03 Tues May 8, 2007 Remove Build.PL from the dist diff --git a/README b/README index 9d3fa1a..8f8ef33 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -Class::C3::XS version 0.03 +Class::C3::XS version 0.04 ============================== INSTALLATION diff --git a/XS.xs b/XS.xs index f3730e6..cf6880a 100644 --- a/XS.xs +++ b/XS.xs @@ -387,6 +387,21 @@ XS(XS_Class_C3_XS_calculateMRO) return; } +XS(XS_Class_C3_XS_plsubgen); +XS(XS_Class_C3_XS_plsubgen) +{ + #ifdef dVAR + dVAR; dXSARGS; + #else + dXSARGS; + #endif + + SP -= items; + XPUSHs(sv_2mortal(newSViv(PL_sub_generation))); + PUTBACK; + return; +} + XS(XS_Class_C3_XS_calc_mdt); XS(XS_Class_C3_XS_calc_mdt) { @@ -539,6 +554,7 @@ MODULE = Class::C3::XS PACKAGE = Class::C3::XS BOOT: newXS("Class::C3::XS::calculateMRO", XS_Class_C3_XS_calculateMRO, __FILE__); + newXS("Class::C3::XS::_plsubgen", XS_Class_C3_XS_plsubgen, __FILE__); newXS("Class::C3::XS::_calculate_method_dispatch_table", XS_Class_C3_XS_calc_mdt, __FILE__); newXS("next::can", XS_next_can, __FILE__); newXS("next::method", XS_next_method, __FILE__); diff --git a/lib/Class/C3/XS.pm b/lib/Class/C3/XS.pm index 810ff57..d2f05db 100644 --- a/lib/Class/C3/XS.pm +++ b/lib/Class/C3/XS.pm @@ -4,7 +4,7 @@ use 5.008_000; use strict; use warnings; -our $VERSION = '0.03'; +our $VERSION = '0.04'; =pod