summaryrefslogtreecommitdiff
path: root/textproc/ruby-amatch/files/patch-ext_amatch.c
blob: 3c6d3e780228b46f3383bcbf9633a1cc604b8db2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
$FreeBSD$

--- ext/amatch.c.orig
+++ ext/amatch.c
@@ -86,9 +86,10 @@
     if (TYPE(strings) == T_STRING) {                                \
         return match_function(amatch, strings);                     \
     } else {                                                        \
-        Check_Type(strings, T_ARRAY);                               \
         int i;                                                      \
-        VALUE result = rb_ary_new2(RARRAY(strings)->len);           \
+	VALUE result;						    \
+        Check_Type(strings, T_ARRAY);                               \
+        result = rb_ary_new2(RARRAY(strings)->len);           \
         for (i = 0; i < RARRAY(strings)->len; i++) {                \
             VALUE string = rb_ary_entry(strings, i);                \
             if (TYPE(string) != T_STRING) {                         \
@@ -949,8 +950,8 @@
     if (TYPE(strings) == T_STRING) {
         result = PairDistance_match(amatch, strings, regexp, use_regexp);
     } else {
-        Check_Type(strings, T_ARRAY);
         int i;
+        Check_Type(strings, T_ARRAY);
         result = rb_ary_new2(RARRAY(strings)->len);
         for (i = 0; i < RARRAY(strings)->len; i++) {
             VALUE string = rb_ary_entry(strings, i);