From 2f5f3003d1869dad502f481dc30bca2e3a6cd8c4 Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Tue, 27 Nov 2012 15:23:40 +0100
Subject: [PATCH] fix EXTEND calls in perl bindings

---
 bindings/solv.i | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bindings/solv.i b/bindings/solv.i
index a6171bc..8bd8ee4 100644
--- a/bindings/solv.i
+++ b/bindings/solv.i
@@ -100,8 +100,8 @@
 #
 %typemap(out) Queue {
   int i;
-  if (argvi + $1.count + 1>= items) {
-    EXTEND(sp, items - (argvi + $1.count + 1) + 1);
+  if (argvi + $1.count + 1 >= items) {
+    EXTEND(sp, (argvi + $1.count + 1) - items + 1);
   }
   for (i = 0; i < $1.count; i++)
     ST(argvi++) = SvREFCNT_inc(SWIG_From_int($1.elements[i]));
@@ -113,7 +113,7 @@
   int cnt = $1.count / step;
   Id *idp = $1.elements;
   if (argvi + cnt + 1 >= items) {
-    EXTEND(sp, items - (argvi + cnt + 1) + 1);
+    EXTEND(sp, (argvi + cnt + 1) - items + 1);
   }
   for (i = 0; i < cnt; i++, idp += step)
     {
-- 
2.7.4