From fe3db09f3672f8a72ec77af07476ad8290131c23 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 14 Jun 2000 08:08:50 +0000
Subject: 2000-06-14-2

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@759 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 string.c | 39 ++++++++++++++++++++++++---------------
 1 file changed, 24 insertions(+), 15 deletions(-)

(limited to 'string.c')

diff --git a/string.c b/string.c
index 27d51e46e..d5de27864 100644
--- a/string.c
+++ b/string.c
@@ -1313,11 +1313,13 @@ rb_f_sub(argc, argv)
     int argc;
     VALUE *argv;
 {
-    VALUE str = rb_str_dup(uscore_get());
+    VALUE str = uscore_get();
+    VALUE dup = rb_str_dup(str);
 
-    rb_str_sub_bang(argc, argv, str);
-    rb_lastline_set(str);
-    return str;
+    if (NIL_P(rb_str_sub_bang(argc, argv, dup)))
+	return str;
+    rb_lastline_set(dup);
+    return dup;
 }
 
 static VALUE
@@ -1333,11 +1335,13 @@ rb_f_gsub(argc, argv)
     int argc;
     VALUE *argv;
 {
-    VALUE str = rb_str_dup(uscore_get());
+    VALUE str = uscore_get();
+    VALUE dup = rb_str_dup(str);
 
-    rb_str_gsub_bang(argc, argv, str);
-    rb_lastline_set(str);
-    return str;
+    if (NIL_P(rb_str_gsub_bang(argc, argv, dup)))
+	return str;
+    rb_lastline_set(dup);
+    return dup;
 }
 
 static VALUE
@@ -2356,10 +2360,13 @@ rb_f_chop_bang(str)
 static VALUE
 rb_f_chop()
 {
-    VALUE str = rb_str_dup(uscore_get());
+    VALUE str = uscore_get();
 
-    rb_str_chop_bang(str);
-    rb_lastline_set(str);
+    if (RSTRING(str)->len > 0) {
+	str = rb_str_dup(str);
+	rb_str_chop_bang(str);
+	rb_lastline_set(str);
+    }
     return str;
 }
 
@@ -2432,11 +2439,13 @@ rb_f_chomp(argc, argv)
     int argc;
     VALUE *argv;
 {
-    VALUE str = rb_str_dup(uscore_get());
+    VALUE str = uscore_get();
+    VALUE dup = rb_str_dup(str);
 
-    rb_str_chomp_bang(argc, argv, str);
-    rb_lastline_set(str);
-    return str;
+    if (NIL_P(rb_str_chomp_bang(argc, argv, dup)))
+	return str;
+    rb_lastline_set(dup);
+    return dup;
 }
 
 static VALUE
-- 
cgit