develooper Front page | perl.perl5.porters | Postings from November 2000

numeric locale in sv_vcatpvfn()

Thread Next
From:
Hugo
Date:
November 26, 2000 07:29
Subject:
numeric locale in sv_vcatpvfn()
Message ID:
200011261632.QAA13889@crypt.compulink.co.uk
Just coming back to try and sort out Perl_sv_vcatpvfn, and I notice that
since the snapshot I was previously working from, the change below has
occurred. Was this chunk supposed to be simplified in this way? The only
recent reference to similar things appears to be Vadim Konovalov's patch
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2000-11/msg00167.html
which didn't mention sv.c.

Hugo
--- sv.c.oldmodified	Sun Nov 26 16:17:38 2000
+++ sv.c	Sun Nov 26 00:36:47 2000
@@ -6639,15 +6622,7 @@
 		*--eptr = '#';
 	    *--eptr = '%';
 
-	    {
-		STORE_NUMERIC_STANDARD_SET_LOCAL();
-#ifdef USE_LOCALE_NUMERIC
-		if (!was_standard && maybe_tainted)
-		    *maybe_tainted = TRUE;
-#endif
-		(void)sprintf(PL_efloatbuf, eptr, nv);
-		RESTORE_NUMERIC_STANDARD();
-	    }
+	    (void)sprintf(PL_efloatbuf, eptr, nv);
 
 	    eptr = PL_efloatbuf;
 	    elen = strlen(PL_efloatbuf);

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About