Changeset 3188 for trunk/essentials/dev-lang/perl/os2/OS2/REXX/REXX.xs

Timestamp:

Apr 22, 2007, 10:57:48 AM (19 years ago)

Author:

bird

Message:

Applied patch from Paul (aka Creeping).

File:

• trunk/essentials/dev-lang/perl/os2/OS2/REXX/REXX.xs (modified) (2 diffs)

trunk/essentials/dev-lang/perl/os2/OS2/REXX/REXX.xs

@@ -15 +15 @@
 #endif
 
+
 extern ULONG _emx_exception (   EXCEPTIONREPORTRECORD *,
                                 EXCEPTIONREGISTRATIONRECORD *,
                                 CONTEXTRECORD *,
                                 void *);
+
 
 static RXSTRING * strs;
@@ -158 +160 @@
 {
     dTHX;
+
     EXCEPTIONREGISTRATIONRECORD xreg = { NULL, _emx_exception };
+
     int i, rc;
     unsigned long len;