From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 25 Jun 2001 04:50:50 +0000 (-0400)
Subject: Re: [PATCH 5.6.1] misprints
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65850d1188a11c32e29d02481824ef0f35fbacee;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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)