i_img_info() (C API) no longer tries to handle a NULL image object pointer.

[imager.git] / T1 / T1.xs

diff --git a/T1/T1.xs b/T1/T1.xs
index 54bdfaa8f0fb734fcc60344a57bdb689e54e9212..ff30c9585ba692815e137fc7225d253958945f34 100644 (file)
--- a/T1/T1.xs
+++ b/T1/T1.xs
@@ -197,14 +197,12 @@ i_t1_glyph_names(font, text_sv, utf8 = 0)
           }
           EXTEND(SP, 1);
           if (i_t1_glyph_name(font, ch, name, sizeof(name))) {
-            ST(count) = sv_2mortal(newSVpv(name, 0));
+            PUSHs(sv_2mortal(newSVpv(name, 0)));
           }
           else {
-            ST(count) = &PL_sv_undef;
+            PUSHs(&PL_sv_undef);
           }
-         ++count;
         }
-       XSRETURN(count);
 
 int
 i_t1_CLONE_SKIP(...)
@@ -216,4 +214,4 @@ i_t1_CLONE_SKIP(...)
 
 BOOT:
        PERL_INITIALIZE_IMAGER_CALLBACKS;
-       i_t1_start();
\ No newline at end of file
+       i_t1_start();