*** empty log message ***

diff --git a/src/interfaces/perl5/ApachePg.pl b/src/interfaces/perl5/ApachePg.pl
index 53bd6b891623b4f6cb9371e50357ba11df075bb3..670fbbecb62f1cf2985974301686768237f6de4a 100644 (file)
--- a/src/interfaces/perl5/ApachePg.pl
+++ b/src/interfaces/perl5/ApachePg.pl
@@ -2,11 +2,11 @@
 
 # demo script, has been tested with:
 #  - Postgres-6.1
-#  - apache_1.2b8
-#  - mod_perl-0.97
-#  - perl5.003_93
+#  - apache_1.2
+#  - mod_perl-1.0
+#  - perl5.004
 
-use CGI::Apache;
+use CGI;
 use Pg;
 use strict;
 

diff --git a/src/interfaces/perl5/Changes b/src/interfaces/perl5/Changes
index 60d6709bf1f11ba73156df71b6eb52e859f4288d..cc8ff1a5f1775faa3ac29c22ae43ed1221ce21fd 100644 (file)
--- a/src/interfaces/perl5/Changes
+++ b/src/interfaces/perl5/Changes
@@ -51,7 +51,7 @@ Revision history for Perl extension Pg.
         - changed test.pl for large objects:
           test only lo_import and lo_export
 
-1.6.0  Apr 29, 1997
+1.6.1  Jun 02 1997
        - renamed to pgsql_perl5
        - adapted to PostgreSQL-6.1
        - test only functions, which are also

diff --git a/src/interfaces/perl5/Makefile.PL b/src/interfaces/perl5/Makefile.PL
index afd34734964d8dd8fbd4e5bda9eb4030413061ed..7c4579df8eb8994b7f7db9d34e87279323322815 100644 (file)
--- a/src/interfaces/perl5/Makefile.PL
+++ b/src/interfaces/perl5/Makefile.PL
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: Makefile.PL,v 1.1.1.1 1997/04/29 19:37:09 mergl Exp $
+# $Id: Makefile.PL,v 1.2 1997/06/02 19:41:59 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #

diff --git a/src/interfaces/perl5/Pg.pm b/src/interfaces/perl5/Pg.pm
index adff08d53ecc36883e001e94d5a9ae0e57eb69c5..ab7dcd789f1d42e32d04e4501c38fb83a95eae5a 100644 (file)
--- a/src/interfaces/perl5/Pg.pm
+++ b/src/interfaces/perl5/Pg.pm
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: Pg.pm,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: Pg.pm,v 1.2 1997/06/02 19:42:01 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -83,7 +83,7 @@ require 5.003;
        PGRES_InvalidOid
 );
 
-$VERSION = '1.6.0';
+$VERSION = '1.6.1';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs
index 8cffb5afd69372ce96499bcc0e03657e660a614a..771c81db7abf9c0130397e748b7f24c6786a4ec7 100644 (file)
--- a/src/interfaces/perl5/Pg.xs
+++ b/src/interfaces/perl5/Pg.xs
@@ -1,6 +1,6 @@
 /*-------------------------------------------------------
  *
- * $Id: Pg.xs,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+ * $Id: Pg.xs,v 1.2 1997/06/02 19:42:03 mergl Exp $
  *
  * Copyright (c) 1997  Edmund Mergl
  *
@@ -424,6 +424,18 @@ PQclear(res)
        PGresult *      res
 
 
+void
+PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet)
+       PGresult *      res
+       FILE *  fp
+       int     fillAlign
+       char *  fieldSep
+       int     printHeader
+       int     quiet
+       CODE:
+               PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet);
+
+
 void
 PQprintTuples(res, fout, printAttName, terseOutput, width)
        PGresult *      res
@@ -904,6 +916,18 @@ PQgetisnull(res, tup_num, field_num)
        int     field_num
 
 
+void
+PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet)
+       PGresult *      res
+       FILE *  fp
+       int     fillAlign
+       char *  fieldSep
+       int     printHeader
+       int     quiet
+       CODE:
+               PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet);
+
+
 void
 PQprintTuples(res, fout, printAttName, terseOutput, width)
        PG_result       res

diff --git a/src/interfaces/perl5/README b/src/interfaces/perl5/README
index 869aeeff0e76a322f9340bb25536086a950eb28d..25b79dbb4540d713f00918852333aa07e5674706 100644 (file)
--- a/src/interfaces/perl5/README
+++ b/src/interfaces/perl5/README
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: README,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: README,v 1.2 1997/06/02 19:42:05 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -25,13 +25,17 @@ programmers.
 
 
 
-COPYRIGHT INFO
---------------
+COPYRIGHT:
+----------
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of either:
+
+        a) the GNU General Public License as published by the Free
+           Software Foundation; or
+
+        b) the "Artistic License", as specified in the Perl README file.
 
-This Postgres-Perl interface is copyright 1996, 1997 Edmund Mergl. You are 
-free to use it for any purpose, commercial or noncommercial, provided 
-that if you redistribute the source code, this statement of copyright 
-remains attached.
 
 
 IF YOU HAVE PROBLEMS:
@@ -98,8 +102,15 @@ If you have compile errors like "XS_VERSION_BOOTCHECK undeclared", make a
 If this file is not present, you need to recompile and reinstall perl.
 
 
+DOCUMENTATION:
+--------------
+
+Detailed documentation can be found in Pg.pm. Use 'perldoc Pg' after 
+installation to read the documentation. 
+
+
 ---------------------------------------------------------------------------
 
-   Edmund Mergl <E.Mergl@bawue.de>                       April 29, 1997
+   Edmund Mergl <E.Mergl@bawue.de>                       June 02, 1997
 
 ---------------------------------------------------------------------------

diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl
index 3d5b513e9f2bd4ffcd5b6ec32ef21676233d4b14..9588369db3b3dae26fc1ef337b0b0048cd894464 100644 (file)
--- a/src/interfaces/perl5/test.pl
+++ b/src/interfaces/perl5/test.pl
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: test.pl,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: test.pl,v 1.2 1997/06/02 19:42:07 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -65,6 +65,7 @@ $| = 1;
 #      getisnull
 #      print
 #      notifies
+#      displayTuples
 #      printTuples
 #      lo_import
 #      lo_export

diff --git a/src/interfaces/perl5/test.pl.newstyle b/src/interfaces/perl5/test.pl.newstyle
index 5d6a1e3d3c490baae06a06c7acb1069ed8534011..40c5ab355b6f2fd493084ee87170de7a132fd120 100644 (file)
--- a/src/interfaces/perl5/test.pl.newstyle
+++ b/src/interfaces/perl5/test.pl.newstyle
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: test.pl.newstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: test.pl.newstyle,v 1.2 1997/06/02 19:42:11 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -68,6 +68,7 @@ $| = 1;
 #      tty
 #      getlength
 #      getisnull
+#      displayTuples
 #      printTuples
 #      lo_open
 #      lo_close

diff --git a/src/interfaces/perl5/test.pl.oldstyle b/src/interfaces/perl5/test.pl.oldstyle
index 408c2b66c6ee5237ad8925a23995a7ca6ce755fb..ad19b15c2f59bb531bdffb5ca76e9e025bcca653 100644 (file)
--- a/src/interfaces/perl5/test.pl.oldstyle
+++ b/src/interfaces/perl5/test.pl.oldstyle
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: test.pl.oldstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: test.pl.oldstyle,v 1.2 1997/06/02 19:42:13 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -68,6 +68,7 @@ $| = 1;
 #      PQtty()
 #      PQgetlength()
 #      PQgetisnull()
+#      PQdisplayTuples()
 #      PQprintTuples()
 #      PQlo_open()
 #      PQlo_close()

diff --git a/src/interfaces/perl5/typemap b/src/interfaces/perl5/typemap
index a57abcfabb62207db289c488c06bad0b9df8d921..1083ed9ad65b9f3dd2a7d5155c3f1671441c2528 100644 (file)
--- a/src/interfaces/perl5/typemap
+++ b/src/interfaces/perl5/typemap
@@ -1,6 +1,6 @@
 #-------------------------------------------------------
 #
-# $Id: typemap,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: typemap,v 1.2 1997/06/02 19:42:14 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #