correct documentation

[pspp-builds.git] / perl-module / PSPP.xs

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 254b668c0ae6bf7de323d29b9c98a88932fffa08..de5cbf7b0a8eef5be89c3f08244d4a7494436c24 100644 (file)
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -148,14 +148,17 @@ make_value_from_scalar (SV *val, const struct variable *var)
 
 MODULE = PSPP
 
-BOOT:
+MODULE = PSPP          PACKAGE = PSPP
+
+void
+onBoot (ver)
+ const char *ver
+CODE:
+ assert (0 == strcmp (ver, bare_version));
  msg_init (NULL, message_handler);
  settings_init (0, 0);
  fh_init ();
 
-
-MODULE = PSPP          PACKAGE = PSPP
-
 SV *
 format_value (val, var)
  SV *val
@@ -563,7 +566,7 @@ CODE:
  }
  RETVAL = casewriter_write (sfi->writer, &c);
  finish:
-// Case_destroy (&c);
+// case_destroy (&c);
  free (vv);
 OUTPUT:
  RETVAL
@@ -634,4 +637,3 @@ CODE:
 OUTPUT:
  RETVAL
 
-