* error.c (rb_warn_m): should not warn if -W0 is specified.

  [ruby-talk:82675]

* util.c (ruby_strtod): skip preceding zeros before counting
  digits in the mantissa. (ruby-bugs PR#1181)


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4595 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

4 files changed, 19 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 4969efb95..38d1d8b58 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -38,6 +38,11 @@ Mon Sep 23 23:10:16 2003  NAKAMURA, Hiroshi  <nahi@ruby-lang.org>
 
 	* test/logger/test_logger.rb: ditto.
 
+Tue Sep 23 20:47:51 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* error.c (rb_warn_m): should not warn if -W0 is specified.
+	  [ruby-talk:82675]
+
 Mon Sep 22 21:28:57 2003  WATANABE Hirofumi  <eban@ruby-lang.org>
 
 	* MANIFEST: updated.
@@ -46,6 +51,11 @@ Mon Sep 22 19:22:26 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* configure.in (AC_CHECK_FUNCS): add setuid and setgid.
 
+Mon Sep 22 12:34:55 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* util.c (ruby_strtod): skip preceding zeros before counting
+	  digits in the mantissa. (ruby-bugs PR#1181)
+
 Sun Sep 21 04:12:36 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* ext/openssl/ossl_ocsp.c (ossl_ocspreq_initialize): the argument
diff --git a/error.c b/error.c
index 2e40408a1..4cf39d0e1 100644
--- a/error.c
+++ b/error.c
@@ -166,6 +166,7 @@ static VALUE
 rb_warn_m(self, mesg)
     VALUE self, mesg;
 {
+    if (NIL_P(ruby_verbose)) return;
     rb_io_write(rb_stderr, mesg);
     rb_io_write(rb_stderr, rb_default_rs);
     return mesg;
diff --git a/eval.c b/eval.c
index ec0a03118..897ae7e60 100644
--- a/eval.c
+++ b/eval.c
@@ -9902,6 +9902,7 @@ rb_thread_atfork()
     if (rb_thread_alone()) return;
     FOREACH_THREAD(th) {
 	if (th != curr_thread) {
+	    rb_warn("fork terminates thread at %s:%s", th->node->nd_file, nd_line(th->node));
 	    rb_thread_die(th);
 	}
     }
diff --git a/util.c b/util.c
index 9b058e611..456704492 100644
--- a/util.c
+++ b/util.c
@@ -757,6 +757,13 @@ ruby_strtod(string, endPtr)
 	sign = FALSE;
     }
 
+    /* skip preceding zeros */
+    if (*p == '0') {
+	while (*p == '0')
+	    p++;
+	p--;
+    }
+
     /*
      * Count the number of digits in the mantissa (including the decimal
      * point), and also locate the decimal point.