From a3bf4be7d7fa2d1af39d0c830d57ad9a1f359ee1 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Wed, 4 Jul 2007 22:26:22 +0000
Subject: - Urpm_read_config_files properly return the value to perl - kill
 useless var dcl

---
 URPM.xs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/URPM.xs b/URPM.xs
index c27e362..c7761f6 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1337,7 +1337,6 @@ Pkg_is_arch_compat(pkg)
   INIT:
   char * platform;
   CODE:
-  char * arch;
   read_config_files(0);
   if (pkg->info) {
     char *arch;
@@ -3033,7 +3032,9 @@ Urpm_bind_rpm_textdomain_codeset()
 int
 Urpm_read_config_files()
   CODE:
-  return(read_config_files(1) == 0); /* force re-read of configuration files */
+  RETVAL = (read_config_files(1) == 0); /* force re-read of configuration files */
+  OUTPUT:
+  RETVAL
 
 void
 Urpm_list_rpm_tag(urpm=Nullsv)
-- 
cgit v1.2.1