diff options
| -rw-r--r-- | perl_dmod/Cstore/Cstore.xs | 4 | ||||
| -rw-r--r-- | perl_dmod/Cstore/typemap | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/perl_dmod/Cstore/Cstore.xs b/perl_dmod/Cstore/Cstore.xs index 3c9a9ad..3626303 100644 --- a/perl_dmod/Cstore/Cstore.xs +++ b/perl_dmod/Cstore/Cstore.xs @@ -45,6 +45,10 @@ OUTPUT: RETVAL +void +Cstore::DESTROY() + + bool Cstore::cfgPathExists(CPATH *pref, bool active_cfg) PREINIT: diff --git a/perl_dmod/Cstore/typemap b/perl_dmod/Cstore/typemap index 8d6d178..7714cd1 100644 --- a/perl_dmod/Cstore/typemap +++ b/perl_dmod/Cstore/typemap @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -Cstore * O_CPPOBJ +Cstore * O_OBJECT STRVEC * T_STRVEC_REF CPATH * T_CPATH_REF STRSTRMAP * T_STRSTRMAP_REF @@ -20,7 +20,7 @@ STRSTRMAP * T_STRSTRMAP_REF ############################################################ OUTPUT -O_CPPOBJ +O_OBJECT sv_setref_pv($arg, CLASS, (void *) $var); T_STRVEC_REF @@ -44,7 +44,7 @@ T_STRSTRMAP_REF ############################################################ INPUT -O_CPPOBJ +O_OBJECT if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) { $var = ($type) SvIV((SV *) SvRV($arg)); } else { |