0.04 (MRO::Compat helper)

diff --git a/ChangeLog b/ChangeLog
index 54e9a48..f028c7e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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