X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=8800d0bdf4e0e87cbba8f89ec872029181395f59;hb=facb4a1ad3c9e8b2cdf55824680eed2afb91aebe;hp=adae822d4e8d05e2ec54ec25488943845dbe91fe;hpb=a70857ce808bba36e67a66375290e340dcf75adc;p=pspp diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs index adae822d4e..8800d0bdf4 100644 --- a/perl-module/PSPP.xs +++ b/perl-module/PSPP.xs @@ -647,7 +647,7 @@ CODE: swi->opened = true; swi->dict_sv = dict_sv; SvREFCNT_inc (swi->dict_sv); - + RETVAL = swi; OUTPUT: RETVAL @@ -787,7 +787,7 @@ CODE: casenumber n = casereader_get_case_cnt (sfr->reader); if (n == CASENUMBER_MAX) ret = &PL_sv_undef; - else + else ret = newSViv (n); RETVAL = ret; OUTPUT: