patch to 5.004_01 perltrap.pod

[p5sagit/p5-mst-13.2.git] / os2 / os2.c

diff --git a/os2/os2.c b/os2/os2.c
index f8f4a82..c45dfec 100644 (file)
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -55,7 +55,7 @@ get_sysinfo(ULONG pid, ULONG flags)
     char *pbuffer;
     ULONG rc, buf_len = QSS_INI_BUFFER;
 
-    New(1022, pbuffer, buf_len, char);
+    New(1322, pbuffer, buf_len, char);
     /* QSS_PROCESS | QSS_MODULE | QSS_SEMAPHORES | QSS_SHARED */
     rc = QuerySysState(flags, pid, pbuffer, buf_len);
     while (rc == ERROR_BUFFER_OVERFLOW) {
@@ -208,7 +208,7 @@ register SV **sp;
     int flag = P_WAIT, trueflag, err, secondtry = 0;
 
     if (sp > mark) {
-       New(401,Argv, sp - mark + 3, char*);
+       New(1301,Argv, sp - mark + 3, char*);
        a = Argv;
 
        if (mark < sp && SvNIOKp(*(mark+1)) && !SvPOKp(*(mark+1))) {
@@ -321,7 +321,7 @@ int execf;
     if (strnEQ(cmd,"/bin/sh",7) && isSPACE(cmd[7])) {
        STRLEN l = strlen(sh_path);
        
-       New(4545, news, strlen(cmd) - 7 + l, char);
+       New(1302, news, strlen(cmd) - 7 + l + 1, char);
        strcpy(news, sh_path);
        strcpy(news + l, cmd + 7);
        cmd = news;
@@ -367,7 +367,7 @@ int execf;
        }
     }
 
-    New(402,Argv, (s - cmd) / 2 + 2, char*);
+    New(1303,Argv, (s - cmd) / 2 + 2, char*);
     Cmd = savepvn(cmd, s-cmd);
     a = Argv;
     for (s = Cmd; *s;) {
@@ -850,7 +850,7 @@ XS(XS_Cwd_sys_chdir)
        bool    RETVAL;
 
        RETVAL = sys_chdir(path);
-       ST(0) = RETVAL ? &sv_yes : &sv_no;
+       ST(0) = boolSV(RETVAL);
        if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
     }
     XSRETURN(1);
@@ -866,7 +866,7 @@ XS(XS_Cwd_change_drive)
        bool    RETVAL;
 
        RETVAL = change_drive(d);
-       ST(0) = RETVAL ? &sv_yes : &sv_no;
+       ST(0) = boolSV(RETVAL);
        if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
     }
     XSRETURN(1);
@@ -882,7 +882,7 @@ XS(XS_Cwd_sys_is_absolute)
        bool    RETVAL;
 
        RETVAL = sys_is_absolute(path);
-       ST(0) = RETVAL ? &sv_yes : &sv_no;
+       ST(0) = boolSV(RETVAL);
        if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
     }
     XSRETURN(1);
@@ -898,7 +898,7 @@ XS(XS_Cwd_sys_is_rooted)
        bool    RETVAL;
 
        RETVAL = sys_is_rooted(path);
-       ST(0) = RETVAL ? &sv_yes : &sv_no;
+       ST(0) = boolSV(RETVAL);
        if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
     }
     XSRETURN(1);
@@ -914,7 +914,7 @@ XS(XS_Cwd_sys_is_relative)
        bool    RETVAL;
 
        RETVAL = sys_is_relative(path);
-       ST(0) = RETVAL ? &sv_yes : &sv_no;
+       ST(0) = boolSV(RETVAL);
        if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
     }
     XSRETURN(1);
@@ -1101,7 +1101,7 @@ XS(XS_Cwd_extLibpath_set)
        }
 
        RETVAL = extLibpath_set(s, type);
-       ST(0) = RETVAL ? &sv_yes : &sv_no;
+       ST(0) = boolSV(RETVAL);
        if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
     }
     XSRETURN(1);
@@ -1149,7 +1149,7 @@ Perl_OS2_init(char **env)
        environ = env;
     }
     if ( (shell = getenv("PERL_SH_DRIVE")) ) {
-       New(404, sh_path, strlen(SH_PATH) + 1, char);
+       New(1304, sh_path, strlen(SH_PATH) + 1, char);
        strcpy(sh_path, SH_PATH);
        sh_path[0] = shell[0];
     } else if ( (shell = getenv("PERL_SH_DIR")) ) {
@@ -1157,7 +1157,7 @@ Perl_OS2_init(char **env)
        if (shell[l-1] == '/' || shell[l-1] == '\\') {
            l--;
        }
-       New(404, sh_path, l + 8, char);
+       New(1304, sh_path, l + 8, char);
        strncpy(sh_path, shell, l);
        strcpy(sh_path + l, "/sh.exe");
        for (i = 0; i < l; i++) {