This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
48bfcc5
)
Fix typo in Thread.xs.
author
Malcolm Beattie
<mbeattie@sable.ox.ac.uk>
Tue, 25 Nov 1997 15:47:36 +0000
(15:47 +0000)
committer
Malcolm 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
patch
|
blob
|
blame
|
history
diff --git
a/ext/Thread/Thread.xs
b/ext/Thread/Thread.xs
index
17c724a
..
c0d551d
100644
(file)
--- 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);