avoid a possible sign-extension for offsets/sizes in SGI

[imager.git] / FT2 / FT2.xs

diff --git a/FT2/FT2.xs b/FT2/FT2.xs
index dd934427da56a37568ed84b1412f037865a53f34..e1c4de44a13ba9ca6b20289122872cc66eec1c71 100644 (file)
--- a/FT2/FT2.xs
+++ b/FT2/FT2.xs
@@ -243,10 +243,12 @@ i_ft2_has_chars(handle, text_sv, utf8)
         work = mymalloc(len);
         count = i_ft2_has_chars(handle, text, len, utf8, work);
         if (GIMME_V == G_ARRAY) {
-          EXTEND(SP, count);
-          for (i = 0; i < count; ++i) {
-            PUSHs(boolSV(work[i]));
-          }
+         if (count) {
+            EXTEND(SP, count);
+            for (i = 0; i < count; ++i) {
+              PUSHs(boolSV(work[i]));
+            }
+         }
         }
         else {
           EXTEND(SP, 1);