From 0efdc769b260bb832e7f59d8bfb80def65f554ff Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Wed, 12 Nov 2014 22:22:22 +0000
Subject: Handle non numeric returns for traverse_tag_find callback

fix a warning spot by Angelo Naselli
---
 URPM.xs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'URPM.xs')

diff --git a/URPM.xs b/URPM.xs
index 10d9c2c..aac4b43 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2447,11 +2447,14 @@ Db_traverse_tag_find(db,tag,name,callback)
       int count = _run_cb_while_traversing(callback, header, 0);
 
       SPAGAIN;
-      if (count == 1 && POPi) {
-	found = 1;
-	break;
+      if (count == 1) {
+	SV* ret = POPs;
+	found = SvTRUE(ret);
       }
       PUTBACK;
+      if (found) {
+	break;
+      }
   }
   rpmtsSetVSFlags(db->ts, ovsflags);
   (void)rpmdbFreeIterator(mi);
-- 
cgit v1.2.1