view release on metacpan or  search on metacpan

ex/Enums.patch  view on Meta::CPAN

--- OLE.xs	Wed Nov 05 22:32:20 2003
***************
*** 6584,6589 ****
--- 6584,6679 ----
      XSRETURN_EMPTY;
  }
  
+ void
+ Enums(self)
+     SV *self
+ PPCODE:
+ {
+     HRESULT hr;
+     UINT cp = cpDefault;
+     HV *stash = gv_stashpv(szWINOLE, TRUE);
+     HV *hv;
+     unsigned int count;
+ 
+     WINOLETYPELIBOBJECT *pObj = GetOleTypeLibObject(aTHX_ self);
+     if (!pObj)
+ 	XSRETURN_EMPTY;