[macruby-changes] [5015] MacRuby/trunk/sprintf.c

[source_changes at macosforge.org]

Revision: 5015
          http://trac.macosforge.org/projects/ruby/changeset/5015
Author:   watson1978 at gmail.com
Date:     2010-12-11 05:43:51 -0800 (Sat, 11 Dec 2010)
Log Message:
-----------
sprintf("%c") will throw an exception when does not pass one character.

Test Script:
{{{
require 'test/unit/assertions.rb'
include Test::Unit::Assertions

assert_raise(ArgumentError) { sprintf("%c", "cc") }

puts :ok
}}}

Modified Paths:
--------------
    MacRuby/trunk/sprintf.c

Modified: MacRuby/trunk/sprintf.c
===================================================================
--- MacRuby/trunk/sprintf.c	2010-12-10 22:57:25 UTC (rev 5014)
+++ MacRuby/trunk/sprintf.c	2010-12-11 13:43:51 UTC (rev 5015)
@@ -669,7 +669,9 @@
 		case 'C':
 		    GET_ARG();
 		    if (TYPE(arg) == T_STRING) {
-			arg = rb_str_substr(arg, 0, 1);
+			if(RSTRING_LEN(arg) != 1) {
+			    rb_raise(rb_eArgError, "%%c requires a character");
+			}
 		    }
 		    else {
 			long num = NUM2LONG(arg);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20101211/ad5f575c/attachment-0001.html>