X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=802aabf5c0f0216240d52d51e6ae51c81ceb8c06;hb=refs%2Fbuilds%2F20140222033038%2Fpspp;hp=0895f641a8577570fe5aff2a011d356fc1cf72f8;hpb=b3fcf4b1644bf4af9b5eb7b0b0f8856c51118128;p=pspp

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 0895f641a8..802aabf5c0 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -632,7 +632,9 @@ INIT:
     SV** version = hv_fetch(opt_h, "version", 7, 0);
 
     opts.create_writeable = readonly ? ! SvIV (*readonly) : true;
-    opts.compress = compress ? SvIV (*compress) : false;
+    opts.compression = (compress && SvIV (*compress)
+                        ? SFM_COMP_SIMPLE
+			: SFM_COMP_NONE);
     opts.version = version ? SvIV (*version) : 3 ;
   }
 CODE: