adapted Makefile.PL to be build in source tree

3 files changed, 23 insertions, 15 deletions

diff --git a/src/interfaces/perl5/eg/ApachePg.pl b/src/interfaces/perl5/eg/ApachePg.pl
index 7885369f898..26fdc2cd1b2 100644
--- a/src/interfaces/perl5/eg/ApachePg.pl
+++ b/src/interfaces/perl5/eg/ApachePg.pl
@@ -1,5 +1,13 @@
 #!/usr/local/bin/perl
 
+#-------------------------------------------------------
+#
+# $Id: ApachePg.pl,v 1.4 1998/06/01 16:41:26 mergl Exp $
+#
+# Copyright (c) 1997, 1998  Edmund Mergl
+#
+#-------------------------------------------------------
+
 # demo script, tested with:
 #  - PostgreSQL-6.3
 #  - apache_1.3
@@ -37,7 +45,7 @@ if ($query->param) {
         print "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>\n";
         my @row;
         while (@row = $result->fetchrow) {
-            print "<TR><TD>", join("</TD><TD>", @row), "</TD></TR>\n";
+            print "<TR><TD>", join("</TD><TD>", @row), "</TD></TR>";
         }
         print "</TABLE></CENTER><P>\n";
     } else {
diff --git a/src/interfaces/perl5/eg/example.newstyle b/src/interfaces/perl5/eg/example.newstyle
index 9f5e095d3f7..f2c6a572cb6 100644
--- a/src/interfaces/perl5/eg/example.newstyle
+++ b/src/interfaces/perl5/eg/example.newstyle
@@ -2,9 +2,9 @@
 
 #-------------------------------------------------------
 #
-# $Id: example.newstyle,v 1.4 1998/04/14 21:14:50 mergl Exp $
+# $Id: example.newstyle,v 1.5 1998/06/01 16:41:27 mergl Exp $
 #
-# Copyright (c) 1997  Edmund Mergl
+# Copyright (c) 1997, 1998  Edmund Mergl
 #
 #-------------------------------------------------------
 
@@ -122,7 +122,7 @@ cmp_ne("", $port);
 ######################### create and insert into table
 # 8-19
 
-$result = $conn->exec("CREATE TABLE person (id int4, name char16)");
+$result = $conn->exec("CREATE TABLE person (id int4, name char(16))");
 cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
 cmp_eq("CREATE", $result->cmdStatus);
 
@@ -143,7 +143,7 @@ $ret = 0;
 while (-1 != $ret) {
     $ret = $conn->getline($string, 256);
     last if $string eq "\\.";
-    cmp_eq("$i	Edmund Mergl", $string);
+    cmp_eq("$i	Edmund Mergl    ", $string);
     $i ++;
 }
 
@@ -190,8 +190,8 @@ for ($k = 0; $k < $result->nfields; $k++) {
         cmp_eq(4, $fsize);
     } else {
         cmp_eq("name", $fname);
-        cmp_eq(20, $ftype);
-        cmp_eq(16, $fsize);
+        cmp_eq(1042, $ftype);
+        cmp_eq(-1, $fsize);
     }
     $fnumber = $result->fnumber($fname);
     cmp_eq($k, $fnumber);
@@ -201,7 +201,7 @@ $string = "";
 while (@row = $result->fetchrow) {
     $string = join(" ", @row);
 }
-cmp_eq("5 Edmund Mergl", $string);
+cmp_eq("5 Edmund Mergl    ", $string);
 
 ######################### PQnotifies
 # 43-46
diff --git a/src/interfaces/perl5/eg/example.oldstyle b/src/interfaces/perl5/eg/example.oldstyle
index 49f58982385..a4771a0c78f 100644
--- a/src/interfaces/perl5/eg/example.oldstyle
+++ b/src/interfaces/perl5/eg/example.oldstyle
@@ -2,9 +2,9 @@
 
 #-------------------------------------------------------
 #
-# $Id: example.oldstyle,v 1.4 1998/04/14 21:14:52 mergl Exp $
+# $Id: example.oldstyle,v 1.5 1998/06/01 16:41:27 mergl Exp $
 #
-# Copyright (c) 1997  Edmund Mergl
+# Copyright (c) 1997, 1998  Edmund Mergl
 #
 #-------------------------------------------------------
 
@@ -126,7 +126,7 @@ cmp_ne("", $port);
 ######################### create and insert into table
 # 8-19
 
-$result = PQexec($conn, "CREATE TABLE person (id int4, name char16)");
+$result = PQexec($conn, "CREATE TABLE person (id int4, name char(16))");
 cmp_eq(PGRES_COMMAND_OK, PQresultStatus($result));
 cmp_eq("CREATE", PQcmdStatus($result));
 PQclear($result);
@@ -150,7 +150,7 @@ $ret = 0;
 while (-1 != $ret) {
     $ret = PQgetline($conn, $string, 256);
     last if $string eq "\\.";
-    cmp_eq("$i	Edmund Mergl", $string);
+    cmp_eq("$i	Edmund Mergl    ", $string);
     $i++;
 }
 
@@ -201,8 +201,8 @@ for ($k = 0; $k < PQnfields($result); $k++) {
         cmp_eq(4, $fsize);
     } else { 
         cmp_eq("name", $fname);
-        cmp_eq(20, $ftype);
-        cmp_eq(16, $fsize);
+        cmp_eq(1042, $ftype);
+        cmp_eq(-1, $fsize);
     }
     $fnumber = PQfnumber($result, $fname);
     cmp_eq($k, $fnumber);
@@ -214,7 +214,7 @@ for ($k = 0; $k < PQntuples($result); $k++) {
         $string .= PQgetvalue($result, $k, $l) . " ";
     }
     $i = $k + 1;
-    cmp_eq("$i Edmund Mergl ", $string);
+    cmp_eq("$i Edmund Mergl     ", $string);
 }
 
 PQclear($result);