Remove INV_ARCHIVE mention in perl.

diff --git a/src/interfaces/perl5/Pg.pm b/src/interfaces/perl5/Pg.pm
index 66dfd3961ea81f1b3e01a0d51fed272f8873602b..920612ebb4e09744c8fcae6e22410a20ddacc9f6 100644 (file)
--- 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 fdcec87c79d8060088947173427e26cccc2cc50d..76c63cbebea994f3512bcd6f00b88fa3af73d765 100644 (file)
--- 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"))