From 4352ef4a987e56b69f91be767427fae1593eb310 Mon Sep 17 00:00:00 2001
From: gafton <devnull@localhost>
Date: Wed, 14 Jul 1999 17:23:30 +0000
Subject: [PATCH] Updated

CVS patchset: 3160
CVS date: 1999/07/14 17:23:30
---
 perl/ChangeLog |  3 +++
 perl/junk.xs   |  2 +-
 perl/rpm.xs    | 62 ++++++++++++++++++++++++++++++++++++++++++++++------------
 perl/typemap   |  2 +-
 4 files changed, 54 insertions(+), 15 deletions(-)

diff --git a/perl/ChangeLog b/perl/ChangeLog
index bd65592..48fc68c 100644
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,5 +1,8 @@
 1999-07-14  Cristian Gafton  <gafton@redhat.com>
 
+	* rpm.xs: Take the count return value into consideration
+	when processing int return types
+
 	* test.pl: Added test for the number fo tags and the number of 
 	files in the test package
 
diff --git a/perl/junk.xs b/perl/junk.xs
index 0513a0f..a3f0237 100644
--- a/perl/junk.xs
+++ b/perl/junk.xs
@@ -2,7 +2,7 @@
  * This file includes misc functions that were once implemented and retired
  * later in the process
  *
- * $Id: junk.xs,v 1.1 1999/07/14 16:52:52 jbj Exp $
+ * $Id: junk.xs,v 1.2 1999/07/14 17:23:30 gafton Exp $
  */
 
 SV *
diff --git a/perl/rpm.xs b/perl/rpm.xs
index 463dca2..1eb8fc0 100644
--- a/perl/rpm.xs
+++ b/perl/rpm.xs
@@ -1,7 +1,7 @@
 /*
  * Perl interface to rpmlib
  *
- * $Id: rpm.xs,v 1.1 1999/07/14 16:52:52 jbj Exp $
+ * $Id: rpm.xs,v 1.2 1999/07/14 17:23:30 gafton Exp $
  */
 
 #include "EXTERN.h"
@@ -77,16 +77,28 @@ CODE:
 	if (rc != 0) {
 	  switch(type) {
 	    case RPM_CHAR_TYPE:
-	        av_push(array, newSViv((char) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((char) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT8_TYPE:
-	        av_push(array, newSViv((int_8) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((int_8) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT16_TYPE:
-	        av_push(array, newSViv((int_16) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((int_16) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT32_TYPE:
-	        av_push(array, newSViv((int_32)value));
+		while (count-- > 0) {		    
+		    av_push(array, newSViv((int_32)value));
+		    value++;
+		}
 	        break;
 	    case RPM_STRING_TYPE:
 	        av_push(array, newSVpv((char *)value, 0));
@@ -131,16 +143,28 @@ HeaderItemByNameRef(header, tag)
 	if (rc != 0) {
 	  switch(type) {
 	    case RPM_CHAR_TYPE:
-	        av_push(array, newSViv((char) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((char) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT8_TYPE:
-	        av_push(array, newSViv((int_8) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((int_8) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT16_TYPE:
-	        av_push(array, newSViv((int_16) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((int_16) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT32_TYPE:
-	        av_push(array, newSViv((int_32)value));
+		while (count-- > 0) {		    
+		    av_push(array, newSViv((int_32)value));
+		    value++;
+		}
 	        break;
 	    case RPM_STRING_TYPE:
 	        av_push(array, newSVpv((char *)value, 0));
@@ -181,16 +205,28 @@ HeaderListRef(header)
 	  array = newAV();
 	  switch(type) {
 	    case RPM_CHAR_TYPE:
-		av_push(array, newSViv((char) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((char) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT8_TYPE:
-	        av_push(array, newSViv((int_8) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((int_8) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT16_TYPE:
-	        av_push(array, newSViv((int_16) (int) value));
+		while (count-- > 0) {
+		    av_push(array, newSViv((int_16) (int) value));
+		    value++;
+		}
 	        break;
 	    case RPM_INT32_TYPE:
-	        av_push(array, newSViv((int_32)value));
+		while (count-- > 0) {		    
+		    av_push(array, newSViv((int_32)value));
+		    value++;
+		}
 	        break;
 	    case RPM_STRING_TYPE:
 	        av_push(array, newSVpv((char *)value, 0));
diff --git a/perl/typemap b/perl/typemap
index 4413d2b..c3e88c6 100644
--- a/perl/typemap
+++ b/perl/typemap
@@ -1,4 +1,4 @@
-/* $Id: typemap,v 1.1 1999/07/14 16:52:52 jbj Exp $ */
+/* $Id: typemap,v 1.2 1999/07/14 17:23:30 gafton Exp $ */
 
 TYPEMAP
 
-- 
2.7.4