This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Use %NVgf instead of %g format in debug stmt
authorKarl Williamson <khw@cpan.org>
Sun, 29 Dec 2019 18:10:13 +0000 (11:10 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 29 Dec 2019 20:09:34 +0000 (13:09 -0700)
The former is portable to different sized doubles.

op.c

diff --git a/op.c b/op.c
index c1de4dd..3db1174 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7858,7 +7858,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 
     DEBUG_y(PerlIO_printf(Perl_debug_log,
             "/d=%d, /s=%d, /c=%d, identical=%d, grows=%d,"
-            " use_svop=%d, can_force_utf8=%d,\nexpansion=%g\n",
+            " use_svop=%d, can_force_utf8=%d,\nexpansion=%" NVgf "\n",
             del, squash, complement,
             cBOOL(o->op_private & OPpTRANS_IDENTICAL),
             cBOOL(o->op_private & OPpTRANS_USE_SVOP),