From 9b6f934309708042a29afc7dc71d5fb6b90258e0 Mon Sep 17 00:00:00 2001
From: rjray <devnull@localhost>
Date: Thu, 17 Aug 2000 09:23:44 +0000
Subject: [PATCH] Reinstated some tags, now that they are better-documented.

CVS patchset: 4075
CVS date: 2000/08/17 09:23:44
---
 Perl-RPM/RPM/Constants.xs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/Perl-RPM/RPM/Constants.xs b/Perl-RPM/RPM/Constants.xs
index 257ef79..8a4c628 100644
--- a/Perl-RPM/RPM/Constants.xs
+++ b/Perl-RPM/RPM/Constants.xs
@@ -4,7 +4,7 @@
 
 #include "RPM.h"
 
-static char * const rcsid = "$Id: Constants.xs,v 1.6 2000/08/16 09:31:46 rjray Exp $";
+static char * const rcsid = "$Id: Constants.xs,v 1.7 2000/08/17 09:23:44 rjray Exp $";
 
 static int not_here(pTHX_ char *s)
 {
@@ -1024,6 +1024,18 @@ static int constant(pTHX_ char *name)
 #else
             goto not_there;
 #endif
+        if (strEQ(name, "RPMTAG_NOPATCH"))
+#ifdef RPMTAG_NOPATCH
+            return RPMTAG_NOPATCH;
+#else
+            goto not_there;
+#endif
+        if (strEQ(name, "RPMTAG_NOSOURCE"))
+#ifdef RPMTAG_NOSOURCE
+            return RPMTAG_NOSOURCE;
+#else
+            goto not_there;
+#endif
         if (strEQ(name, "RPMTAG_OBSOLETEFLAGS"))
 #ifdef RPMTAG_OBSOLETEFLAGS
             return RPMTAG_OBSOLETEFLAGS;
-- 
2.7.4