Imported Upstream version 3.2.0

[debian/amanda] / perl / Amanda / NDMP.c

diff --git a/perl/Amanda/NDMP.c b/perl/Amanda/NDMP.c
index a552469dcddf0b5ae4ada2b3c80ba74cefe70536..527a74cba90fc3a38109c73dad53f5fc025e0bac 100644 (file)
--- a/perl/Amanda/NDMP.c
+++ b/perl/Amanda/NDMP.c
@@ -8,6 +8,9 @@
  * interface file instead. 
  * ----------------------------------------------------------------------------- */
 
+#include "../config/config.h"
+
+
 #define SWIGPERL
 #define SWIG_CASTRANK_MODE
 
@@ -2050,17 +2053,7 @@ XS(_wrap_NDMPConnection_set_verbose) {
     }
     arg1 = (NDMPConnection *)(argp1);
     {
-      if (sizeof(signed int) == 1) {
-        arg2 = amglue_SvI8(ST(1));
-      } else if (sizeof(signed int) == 2) {
-        arg2 = amglue_SvI16(ST(1));
-      } else if (sizeof(signed int) == 4) {
-        arg2 = amglue_SvI32(ST(1));
-      } else if (sizeof(signed int) == 8) {
-        arg2 = amglue_SvI64(ST(1));
-      } else {
-        g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
-      }
+      arg2 = SvTRUE(ST(1));
     }
     NDMPConnection_set_verbose(arg1,arg2);
     ST(argvi) = sv_newmortal();