From 54e75815aa29b74953e8eecc85f2f1a314e93d1d Mon Sep 17 00:00:00 2001 From: rjray Date: Thu, 17 Aug 2000 09:23:19 +0000 Subject: [PATCH] Removed RPMTAG_SOURCE from the list of scalars; it's actually a list. Changed the open in new_from_fname() to be "r" instead of "r+" because of assertions in the rpmio code when the input source is stdin. CVS patchset: 4074 CVS date: 2000/08/17 09:23:19 --- Perl-RPM/RPM/Header.xs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Perl-RPM/RPM/Header.xs b/Perl-RPM/RPM/Header.xs index b0da69e..26aba43 100644 --- a/Perl-RPM/RPM/Header.xs +++ b/Perl-RPM/RPM/Header.xs @@ -4,7 +4,7 @@ #include "RPM.h" -static char * const rcsid = "$Id: Header.xs,v 1.13 2000/08/11 08:17:42 rjray Exp $"; +static char * const rcsid = "$Id: Header.xs,v 1.14 2000/08/17 09:23:19 rjray Exp $"; static int scalar_tag(pTHX_ SV *, int); /* @@ -207,7 +207,7 @@ static int new_from_fname(pTHX_ const char* source, RPM_Header* new_hdr) { FD_t fd; - if (! (fd = Fopen(source, "r+"))) + if (! (fd = Fopen(source, "r"))) { char errmsg[256]; @@ -1058,7 +1058,6 @@ static int scalar_tag(pTHX_ SV* self, int tag_value) case RPMTAG_RELEASE: case RPMTAG_RPMVERSION: case RPMTAG_SIZE: - case RPMTAG_SOURCE: case RPMTAG_SOURCERPM: case RPMTAG_SUMMARY: case RPMTAG_URL: -- 2.7.4