X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3469222433b317d18cea77514faabef96011806b..a870056241d074c8220de8211d965e13ac2d3c7d:/universal.c?ds=sidebyside

diff --git a/universal.c b/universal.c
index e674d50..251fbac 100644
--- a/universal.c
+++ b/universal.c
@@ -69,9 +69,11 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash,
 	    SV** const svp = (SV**)hv_fetch(hv, name, len, FALSE);
 	    if (svp) {
 		SV * const sv = *svp;
+#ifdef DEBUGGING
 		if (sv != &PL_sv_undef)
 		    DEBUG_o( Perl_deb(aTHX_ "Using cached ISA %s for package %s\n",
 				    name, hvname) );
+#endif
 		return (sv == &PL_sv_yes);
 	    }
 	}
@@ -686,7 +688,14 @@ XS(XS_version_qv)
 	    if ( SvNOK(ver) ) /* may get too much accuracy */
 	    {
 		char tbuf[64];
-		const STRLEN len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVgf, SvNVX(ver));
+#ifdef USE_LOCALE_NUMERIC
+		char *loc = setlocale(LC_NUMERIC, "C");
+#endif
+		STRLEN len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVgf, SvNVX(ver));
+#ifdef USE_LOCALE_NUMERIC
+		setlocale(LC_NUMERIC, loc);
+#endif
+		while (tbuf[len-1] == '0' && len > 0) len--;
 		version = savepvn(tbuf, len);
 	    }
 	    else