X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;fp=perl-module%2FPSPP.xs;h=de5cbf7b0a8eef5be89c3f08244d4a7494436c24;hb=1145dad25fd785efd141a5258c32d2ff0e694c12;hp=b468cc7467325a322378ad5970d19eb2b8a12b21;hpb=49ce384421d791119e04cbdb6bd4ae4ec30740f4;p=pspp-builds.git

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index b468cc74..de5cbf7b 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -566,7 +566,7 @@ CODE:
  }
  RETVAL = casewriter_write (sfi->writer, &c);
  finish:
-// Case_destroy (&c);
+// case_destroy (&c);
  free (vv);
 OUTPUT:
  RETVAL