X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=ea2907ffe9b68ca7a69a43291b26a9c57af42ba6;hb=8d6bfdd2a100bf8166b3b0b3f006d46f3e7a59e9;hp=74ea561170b00b3b16917aa8fe1c5a2c9fa24309;hpb=b4f585e70eca236ca97e53ef487cea9a3ab5e78a;p=pspp

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 74ea561170..ea2907ffe9 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -274,7 +274,7 @@ CODE:
 	 free (input_format);
        }
      hmap_destroy (&dict->input_formats);
-     dict_destroy (dict->dict);
+     dict_unref (dict->dict);
      free (dict);
    }