tweak topmark report

FGasper · Mar 2, 2022 · 25fb213 · 25fb213
1 parent 5f9f194
commit 25fb213
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/XS.xs b/XS.xs
@@ -1149,7 +1149,7 @@ static void _mojo_wait_promise(pTHX_ SV* promise_sv, SV* stop_cr) {
 static inline void MY_S_debug_showstack(pTHX_ const char *pattern, ...)
 {
   SV **sp;
-  PerlIO_printf(Perl_debug_log, "INIT TOPMARK=%d", (int) TOPMARK);
+  PerlIO_printf(Perl_debug_log, "INIT TOPMARK=%d\n", (int) TOPMARK);
 
   va_list ap;
   va_start(ap, pattern);

diff --git a/t/await_wait__anyevent.t b/t/await_wait__anyevent.t
@@ -25,13 +25,13 @@ BEGIN {
 
 plan skip_all => "Can’t run test: $failed_why" if $failed_why;
 
-diag "topmark bad? " . _topmark_is_bad();
+diag "topmark: " . Promise::XS::_TOPMARK();
 
 Promise::XS::use_event('AnyEvent');
 
-diag "topmark bad? " . _topmark_is_bad();
+diag "topmark: " . Promise::XS::_TOPMARK();
 Promise::XS::_SHOW_STACK();
-diag "topmark bad? " . _topmark_is_bad();
+diag "topmark: " . Promise::XS::_TOPMARK();
 
 AwaitWait::test_success(
     sub {