From: Nathan Torkington <gnat@frii.com>
Date: Thu, 5 Aug 1999 21:25:47 +0000 (-0600)
Subject: Fix for Nathan's fix (#3920) from Guy Decoux.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89ad24c9aa03f6971d66557246333c6005015dc5;p=p5sagit%2Fp5-mst-13.2.git

Fix for Nathan's fix (#3920) from Guy Decoux.
To: perl5-porters@perl.org
Subject: Bugfix for my bugfix
Message-ID: <14250.21947.765134.940583@localhost.frii.com>

p4raw-id: //depot/cfgperl@3927
---

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index 0735bae..6c51a9a 100644
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -52,7 +52,7 @@ sub B::Asmdata::PUT_U8 {
 sub B::Asmdata::PUT_U16 { pack("n", $_[0]) }
 sub B::Asmdata::PUT_U32 { pack("N", $_[0]) }
 sub B::Asmdata::PUT_I32 { pack("N", $_[0]) }
-sub B::Asmdata::PUT_NV  { pack("N", $_[0]) }
+sub B::Asmdata::PUT_NV  { sprintf("%lf\0", $_[0]) }
 sub B::Asmdata::PUT_objindex { pack("N", $_[0]) } # could allow names here
 sub B::Asmdata::PUT_svindex { &B::Asmdata::PUT_objindex }
 sub B::Asmdata::PUT_opindex { &B::Asmdata::PUT_objindex }