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