This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Add forgotten #if DEBUGGING
authorKarl Williamson <khw@cpan.org>
Fri, 14 Jul 2017 21:03:51 +0000 (15:03 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 14 Jul 2017 21:12:37 +0000 (15:12 -0600)
I pushed the previous commit without actually amending it to include
this

locale.c

index 7628b0c..d533e13 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -2626,12 +2626,17 @@ Perl_my_strerror(pTHX_ const int errnum)
              "Any locale change has been done; about to call Strerror\n"));
     errstr = Strerror(errnum);
     if (errstr) {
+
+#ifdef DEBUGGING
+
         if (DEBUG_Lv_TEST) {
             PerlIO_printf(Perl_debug_log, "Strerror returned; saving a copy: '");
             print_bytes_for_locale(errstr, errstr + strlen(errstr), 0);
             PerlIO_printf(Perl_debug_log, "'\n");
         }
 
+#endif
+
         errstr = savepv(errstr);
         SAVEFREEPV(errstr);
     }