This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo in Thread.xs.
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Tue, 25 Nov 1997 15:47:36 +0000 (15:47 +0000)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Tue, 25 Nov 1997 15:47:36 +0000 (15:47 +0000)
p4raw-id: //depot/perl@297

ext/Thread/Thread.xs

index 17c724a..c0d551d 100644 (file)
@@ -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",
        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",
     } 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);
            }
        } STMT_END);
        av_store(av, 0, &sv_yes);