From eeff98c4308b47dfec68c5c41c02736fca451e2f Mon Sep 17 00:00:00 2001
From: naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 25 Feb 2012 07:20:00 +0000
Subject: * complex.c (nucomp_marshal_load): raise error on invalid data.  
 reported by John Firebaugh [ruby-core:42860] [Bug #6076]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@34803 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 complex.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'complex.c')

diff --git a/complex.c b/complex.c
index 7f2d79b6d2..b1dfa3a101 100644
--- a/complex.c
+++ b/complex.c
@@ -1260,6 +1260,8 @@ nucomp_marshal_load(VALUE self, VALUE a)
 {
     get_dat1(self);
     Check_Type(a, T_ARRAY);
+    if (RARRAY_LEN(a) != 2)
+	rb_raise(rb_eArgError, "marshaled complex must have an array whose length is 2 but %ld", RARRAY_LEN(a));
     dat->real = RARRAY_PTR(a)[0];
     dat->imag = RARRAY_PTR(a)[1];
     rb_copy_generic_ivar(self, a);
-- 
cgit v1.2.3