summaryrefslogtreecommitdiff
path: root/marshal.c
diff options
context:
space:
mode:
authornaruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2009-07-09 14:47:22 +0000
committernaruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2009-07-09 14:47:22 +0000
commite6989a7ec2aee8bfd6d4716607df0b7b989b2b4f (patch)
tree5d0d1c280e2238837a5cb37598fd6d24f38a0336 /marshal.c
parentd43de333deae8734fcb115b018039f2ffbe58431 (diff)
* marshal.c (r_object0): replace \u by u when the regexp is
made by Ruby 1.8. [ruby-dev:36750] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23999 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'marshal.c')
-rw-r--r--marshal.c13
1 files changed, 12 insertions, 1 deletions
diff --git a/marshal.c b/marshal.c
index 0c44eba609..d572ecd33a 100644
--- a/marshal.c
+++ b/marshal.c
@@ -1393,8 +1393,19 @@ r_object0(struct load_arg *arg, int *ivp, VALUE extmod)
{
volatile VALUE str = r_bytes(arg);
int options = r_byte(arg);
+ v = r_entry(rb_reg_new("", 0, options), arg);
+ if (ivp) {
+ r_ivar(v, arg);
+ rb_p(v);
+ *ivp = Qfalse;
+ }
+ rb_enc_copy(str, v);
+ if (rb_enc_get_index(str) != rb_utf8_encindex()) {
+#define f_gsub_bang(x,y,z) rb_funcall(x, rb_intern("gsub!"), 2, y, z)
+ f_gsub_bang(str, rb_reg_new("\\\\u", 3, 0), rb_usascii_str_new_cstr("u"));
+ }
v = r_entry(rb_reg_new_str(str, options), arg);
- v = r_leave(v, arg);
+ v = r_leave(v, arg);
}
break;