From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 27 Jun 2001 11:36:40 +0000 (+0000)
Subject: "lose the looses", from Abhijit Menon-Sen.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0222aa7dc291d283102ca6659c13703653b531c6;p=p5sagit%2Fp5-mst-13.2.git

"lose the looses", from Abhijit Menon-Sen.

p4raw-id: //depot/perl@10979
---

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index 5e798ce..e573cef 100644
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -55,7 +55,7 @@ sub B::Asmdata::PUT_U8 {
 sub B::Asmdata::PUT_U16 { pack("S", $_[0]) }
 sub B::Asmdata::PUT_U32 { pack("L", $_[0]) }
 sub B::Asmdata::PUT_I32 { pack("L", $_[0]) }
-sub B::Asmdata::PUT_NV  { sprintf("%s\0", $_[0]) } # "%lf" looses precision and pack('d',...)
+sub B::Asmdata::PUT_NV  { sprintf("%s\0", $_[0]) } # "%lf" loses precision and pack('d',...)
 						   # may not even be portable between compilers
 sub B::Asmdata::PUT_objindex { pack("L", $_[0]) } # could allow names here
 sub B::Asmdata::PUT_svindex { &B::Asmdata::PUT_objindex }
diff --git a/gv.c b/gv.c
index 89b15e1..86f4843 100644
--- a/gv.c
+++ b/gv.c
@@ -447,7 +447,7 @@ Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method)
          * pass along the same data via some unused fields in the CV
          */
         CvSTASH(cv) = stash;
-        SvPVX(cv) = (char *)name; /* cast to loose constness warning */
+        SvPVX(cv) = (char *)name; /* cast to lose constness warning */
         SvCUR(cv) = len;
         return gv;
     }