Imported Upstream version 3.2.0

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

diff --git a/perl/Amanda/Tests.c b/perl/Amanda/Tests.c
index 57d00e87dd1e1564cc69497841be68eefd08b3b3..44697d7ecdacf5bdc623bf2ffe99941885b49b72 100644 (file)
--- a/perl/Amanda/Tests.c
+++ b/perl/Amanda/Tests.c
@@ -8,6 +8,9 @@
  * interface file instead. 
  * ----------------------------------------------------------------------------- */
 
+#include "../config/config.h"
+
+
 #define SWIGPERL
 #define SWIG_CASTRANK_MODE
 
@@ -2614,17 +2617,7 @@ XS(_wrap_verify_random_file) {
     }
     arg3 = (char *)(buf3);
     {
-      if (sizeof(signed int) == 1) {
-        arg4 = amglue_SvI8(ST(3));
-      } else if (sizeof(signed int) == 2) {
-        arg4 = amglue_SvI16(ST(3));
-      } else if (sizeof(signed int) == 4) {
-        arg4 = amglue_SvI32(ST(3));
-      } else if (sizeof(signed int) == 8) {
-        arg4 = amglue_SvI64(ST(3));
-      } else {
-        g_critical("Unexpected signed int >64 bits?"); /* should be optimized out unless sizeof(signed int) > 8 */
-      }
+      arg4 = SvTRUE(ST(3));
     }
     result = (gboolean)verify_random_file(arg1,arg2,arg3,arg4);
     {