From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 25 Nov 1997 15:47:36 +0000 (+0000)
Subject: Fix typo in Thread.xs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd4ea8b47491cf43b89a153ec2b48cb3ffade15b;p=p5sagit%2Fp5-mst-13.2.git

Fix typo in Thread.xs.

p4raw-id: //depot/perl@297
---

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index 17c724a..c0d551d 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -128,12 +128,12 @@ threadstart(void *arg)
 	av_store(av, 0, &sv_no);
 	av_store(av, 1, newSVsv(thr->errsv));
 	DEBUG_L(PerlIO_printf(PerlIO_stderr(), "%p died: %s\n",
-			      SvPV(thr->errsv, na));
+			      SvPV(thr->errsv, na)));
     } else {
 	DEBUG_L(STMT_START {
 	    for (i = 1; i <= retval; i++) {
 		PerlIO_printf(PerlIO_stderr(), "%p return[%d] = %s\n",
-				thr, i, SvPEEK(sp[i - 1]));)
+				thr, i, SvPEEK(sp[i - 1]));
 	    }
 	} STMT_END);
 	av_store(av, 0, &sv_yes);