From 39d1169939bc844ab7f60e5eb556c1a2c83947fb Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Mon, 10 Sep 2001 04:19:19 +0000
Subject: [PATCH] Remove INV_ARCHIVE mention in perl.

---
 src/interfaces/perl5/Pg.pm | 4 +---
 src/interfaces/perl5/Pg.xs | 4 +---
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/interfaces/perl5/Pg.pm b/src/interfaces/perl5/Pg.pm
index 66dfd3961e..920612ebb4 100644
--- a/src/interfaces/perl5/Pg.pm
+++ b/src/interfaces/perl5/Pg.pm
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: Pg.pm,v 1.9 2001/05/11 01:46:33 momjian Exp $
+# $Id: Pg.pm,v 1.10 2001/09/10 04:19:19 momjian Exp $
 #
 # Copyright (c) 1997, 1998  Edmund Mergl
 #
@@ -93,7 +93,6 @@ require 5.002;
 	PGRES_NONFATAL_ERROR
 	PGRES_FATAL_ERROR
 	PGRES_INV_SMGRMASK
-	PGRES_INV_ARCHIVE
 	PGRES_INV_WRITE
 	PGRES_INV_READ
 	PGRES_InvalidOid
@@ -621,7 +620,6 @@ Creates a new large object. $mode is a bit-mask describing
 different attributes of the new object. Use the following constants: 
 
   - PGRES_INV_SMGRMASK
-  - PGRES_INV_ARCHIVE
   - PGRES_INV_WRITE
   - PGRES_INV_READ
 
diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs
index fdcec87c79..76c63cbebe 100644
--- a/src/interfaces/perl5/Pg.xs
+++ b/src/interfaces/perl5/Pg.xs
@@ -1,6 +1,6 @@
 /*-------------------------------------------------------
  *
- * $Id: Pg.xs,v 1.16 2000/12/03 20:45:40 tgl Exp $ with patch for NULs
+ * $Id: Pg.xs,v 1.17 2001/09/10 04:19:19 momjian Exp $ with patch for NULs
  *
  * Copyright (c) 1997, 1998  Edmund Mergl
  *
@@ -71,8 +71,6 @@ int arg; {
 	return 1;
 	if (strEQ(name, "PGRES_INV_SMGRMASK"))
 	return 0x0000ffff;
-	if (strEQ(name, "PGRES_INV_ARCHIVE"))
-	return 0x00010000;
 	if (strEQ(name, "PGRES_INV_WRITE"))
 	return 0x00020000;
 	if (strEQ(name, "PGRES_INV_READ"))
-- 
2.24.1