X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FTests.c;fp=perl%2FAmanda%2FTests.c;h=44697d7ecdacf5bdc623bf2ffe99941885b49b72;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hp=57d00e87dd1e1564cc69497841be68eefd08b3b3;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e;p=debian%2Famanda

diff --git a/perl/Amanda/Tests.c b/perl/Amanda/Tests.c
index 57d00e8..44697d7 100644
--- 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);
     {