X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=ea2907ffe9b68ca7a69a43291b26a9c57af42ba6;hb=69597a0423aad2fd5974c2cbc08a680208b94b6e;hp=dbdc73a106f0311ca6669b49927cca4000aa64fb;hpb=c43455db6f3f1191d969c42b8e679e0fddc44e78;p=pspp

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index dbdc73a106..ea2907ffe9 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -17,6 +17,7 @@
    02110-1301, USA. */
 
 
+#undef VERSION
 #include <config.h>
 
 /* The Gnulib "strftime" module defines my_strftime in <config.h> for use by
@@ -32,6 +33,8 @@
 #include "ppport.h"
 
 #include "minmax.h"
+#include <libpspp/hmap.h>
+#include <libpspp/hash-functions.h>
 #include <libpspp/message.h>
 #include <libpspp/version.h>
 #include <libpspp/i18n.h>
@@ -271,7 +274,7 @@ CODE:
 	 free (input_format);
        }
      hmap_destroy (&dict->input_formats);
-     dict_destroy (dict->dict);
+     dict_unref (dict->dict);
      free (dict);
    }