Re: [PATCH 5.6.1] misprints

Message-ID: <20010625045049.A23965@math.ohio-state.edu>

p4raw-id: //depot/perl@10916

diff --git a/os2/os2.c b/os2/os2.c
index 9c9e09b..1016d9b 100644 (file)
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -481,7 +481,7 @@ do_spawn_ve(pTHX_ SV *really, U32 flag, U32 execf, char *inicmd, U32 addflag)
        char **argsp = fargs;
        int nargs = 4;
        int force_shell;
-       int new_stderr = -1, nostderr = 0
+       int new_stderr = -1, nostderr = 0;
        int fl_stderr = 0;
        STRLEN n_a;
        

diff --git a/pp_sys.c b/pp_sys.c
index 0fa099e..1ab778e 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3485,10 +3485,10 @@ PP(pp_link)
     char *tmps = SvPV(TOPs, n_a);
     TAINT_PROPER("link");
     SETi( PerlLIO_link(tmps, tmps2) >= 0 );
+    RETURN;
 #else
     DIE(aTHX_ PL_no_func, "link");
 #endif
-    RETURN;
 }
 
 PP(pp_symlink)