Changeset 3188 for trunk/essentials/dev-lang/perl/os2/OS2/Process

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/Process/Process.xs (modified) (6 diffs)

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

@@ -221 +221 @@
     PIB *pib;
     
+
     if (!(_emx_env & 0x200)) return (char*)ptypes[1]; /* not OS/2. */
+
     if (CheckOSError(DosGetInfoBlocks(&tib, &pib))) 
         return NULL; 
@@ -234 +236 @@
     ULONG apptype;
     
+
     if (!(_emx_env & 0x200)) 
         croak("file_type not implemented on DOS"); /* not OS/2. */
+
     if (CheckOSError(DosQueryAppType(path, &apptype))) {
 #if 0
@@ -481 +485 @@
          HSWITCH hSwitch;    
 
+
          if (!(_emx_env & 0x200)) 
              croak("switch_entry not implemented on DOS"); /* not OS/2. */
+
          if (CheckWinError(hSwitch = 
                            myWinQuerySwitchHandle(hwnd, pid)))
@@ -683 +689 @@
     SWENTRY swentry;
 
+
     if (!(_emx_env & 0x200)) 
              croak("process_swentry not implemented on DOS"); /* not OS/2. */
+
+
     fill_swentry(&swentry, hwnd, pid);
     return newSVpvn((char*)&swentry, sizeof(swentry));
@@ -697 +706 @@
     SV *sv = newSVpvn("",0);
 
+
     if (!(_emx_env & 0x200)) 
              croak("swentries_list not implemented on DOS"); /* not OS/2. */
+
     if (!pWinQuerySwitchList)
         AssignFuncPByORD(pWinQuerySwitchList, ORD_WinQuerySwitchList);
@@ -759 +770 @@
     ULONG rc;                   /* For CheckOSError */
 
+
     if (!(_emx_env & 0x200)) 
              croak("change_entry() not implemented on DOS"); /* not OS/2. */
+
     if (!pWinChangeSwitchEntry)
         AssignFuncPByORD(pWinChangeSwitchEntry, ORD_WinChangeSwitchEntry);