Changeset 2178 for libswish3/trunk/bindings/perl/xs_helpers.c

Timestamp:

09/26/08 23:59:57 (2 months ago)

Author:

karpet

Message:

some versions of html parser were passing through extra whitespace.
seems to be a specific libxml2 issue. in any case, added a new
whitespace check in both add to buf methods and perl bindings
(the latter where t/20-metanames.t was failing due to extra whitespace)

Files:

• libswish3/trunk/bindings/perl/xs_helpers.c (modified) (1 diff)

libswish3/trunk/bindings/perl/xs_helpers.c

@@ -565 +565 @@
-    int bump            = strlen(SWISH_TOKENPOS_BUMPER);
-    int len;
+
+    //warn("%s nb_content: '%s'\n", key, str);
-        
-    /* analogous to @strings = split(/SWISH_TOKENPOS_BUMPER/, str) */
-    while((tmp = xmlStrstr(str, (xmlChar*)SWISH_TOKENPOS_BUMPER)) != NULL)
-    {
+        //warn("%s split: '%s'\n", key, str);
-        len = tmp - str;
-)
+ && !swish_str_all_ws_len((xmlChar*)str, len)) {
-            av_push(strings, newSVpvn((char*)str, len));
-    
+}
-        str = tmp + bump;  /* move the pointer up */
-    }
-    
-    /* no match and/or last match */
-
+
+
+
+
-        av_push(strings, newSVpvn((char*)str, strlen((char*)str)));
-    }