1.7.3

2 files changed, 32 insertions, 40 deletions

diff --git a/src/interfaces/perl5/eg/example.newstyle b/src/interfaces/perl5/eg/example.newstyle
index 8b80e94b38a..9f5e095d3f7 100644
--- a/src/interfaces/perl5/eg/example.newstyle
+++ b/src/interfaces/perl5/eg/example.newstyle
@@ -2,7 +2,7 @@
 
 #-------------------------------------------------------
 #
-# $Id: example.newstyle,v 1.3 1998/02/20 21:26:06 mergl Exp $
+# $Id: example.newstyle,v 1.4 1998/04/14 21:14:50 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -13,7 +13,7 @@
 
 ######################### We start with some black magic to print on failure.
 
-BEGIN { $| = 1; print "1..57\n"; }
+BEGIN { $| = 1; print "1..56\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Pg;
 $loaded = 1;
@@ -23,7 +23,6 @@ print "ok 1\n";
 
 $dbmain = 'template1';
 $dbname = 'pgperltest';
-$dbhost = 'localhost';
 $trace  = '/tmp/pgtrace.out';
 $cnt    = 2;
 $DEBUG  = 0; # set this to 1 for traces
@@ -35,7 +34,6 @@ $| = 1;
 #	connectdb
 #	db
 #	user
-#	host
 #	port
 #	finish
 #	status
@@ -69,6 +67,7 @@ $| = 1;
 #	conndefaults
 #	reset
 #	options
+#	host
 #	tty
 #	getlength
 #	getisnull
@@ -89,7 +88,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
 ######################### create and connect to test database
 # 2-4
 
-$conn = Pg::connectdb("dbname=$dbmain host=$dbhost");
+$conn = Pg::connectdb("dbname=$dbmain");
 cmp_eq(PGRES_CONNECTION_OK, $conn->status);
 
 # might fail if $dbname doesn't exist => don't check resultStatus
@@ -98,7 +97,7 @@ $result = $conn->exec("DROP DATABASE $dbname");
 $result = $conn->exec("CREATE DATABASE $dbname");
 cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
 
-$conn = Pg::connectdb("dbname=$dbname host=$dbhost");
+$conn = Pg::connectdb("dbname=$dbname");
 cmp_eq(PGRES_CONNECTION_OK, $conn->status);
 
 ######################### debug, PQtrace
@@ -109,7 +108,7 @@ if ($DEBUG) {
 }
 
 ######################### check PGconn
-# 5-8
+# 5-7
 
 $db = $conn->db;
 cmp_eq($dbname, $db);
@@ -117,14 +116,11 @@ cmp_eq($dbname, $db);
 $user = $conn->user;
 cmp_ne("", $user);
 
-$host = $conn->host;
-cmp_ne("", $host);
-
 $port = $conn->port;
 cmp_ne("", $port);
 
 ######################### create and insert into table
-# 9-20
+# 8-19
 
 $result = $conn->exec("CREATE TABLE person (id int4, name char16)");
 cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
@@ -137,7 +133,7 @@ for ($i = 1; $i <= 5; $i++) {
 }
 
 ######################### copy to stdout, PQgetline
-# 21-27
+# 20-26
 
 $result = $conn->exec("COPY person TO STDOUT");
 cmp_eq(PGRES_COPY_OUT, $result->resultStatus);
@@ -154,7 +150,7 @@ while (-1 != $ret) {
 cmp_eq(0, $conn->endcopy);
 
 ######################### delete and copy from stdin, PQputline
-# 28-34
+# 27-33
 
 $result = $conn->exec("BEGIN");
 cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
@@ -179,7 +175,7 @@ $result = $conn->exec("END");
 cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
 
 ######################### select from person, PQgetvalue
-# 35-48
+# 34-47
 
 $result = $conn->exec("SELECT * FROM person");
 cmp_eq(PGRES_TUPLES_OK, $result->resultStatus);
@@ -208,7 +204,7 @@ while (@row = $result->fetchrow) {
 cmp_eq("5 Edmund Mergl", $string);
 
 ######################### PQnotifies
-# 44-47
+# 43-46
 
 if (! defined($pid = fork)) {
     die "can not fork: $!";
@@ -216,7 +212,7 @@ if (! defined($pid = fork)) {
     # i'm the child
     sleep 2;
     bless $conn;
-    $conn = Pg::connectdb("dbname=$dbname host=$dbhost");
+    $conn = Pg::connectdb("dbname=$dbname");
     $result = $conn->exec("NOTIFY person");
     exit;
 }
@@ -234,7 +230,7 @@ while (1) {
 cmp_eq("person", $table);
 
 ######################### PQprint
-# 48-49
+# 47-48
 
 $result = $conn->exec("SELECT name FROM person WHERE id = 2");
 cmp_eq(PGRES_TUPLES_OK, $result->resultStatus);
@@ -244,7 +240,7 @@ $result->print(PRINT, 0, 0, 0, 0, 1, 0, " ", "", "", "myName");
 close(PRINT) || die "bad PRINT: $!";
 
 ######################### PQlo_import, PQlo_export, PQlo_unlink
-# 50-55
+# 49-54
 
 $filename = 'ApachePg.pl';
 $cwd = `pwd`;
@@ -274,9 +270,9 @@ if ($DEBUG) {
 }
 
 ######################### disconnect and drop test database
-# 56-57
+# 55-56
 
-$conn = Pg::connectdb("dbname=$dbmain host=$dbhost");
+$conn = Pg::connectdb("dbname=$dbmain");
 cmp_eq(PGRES_CONNECTION_OK, $conn->status);
 
 $result = $conn->exec("DROP DATABASE $dbname");
diff --git a/src/interfaces/perl5/eg/example.oldstyle b/src/interfaces/perl5/eg/example.oldstyle
index 6c537af1b88..49f58982385 100644
--- a/src/interfaces/perl5/eg/example.oldstyle
+++ b/src/interfaces/perl5/eg/example.oldstyle
@@ -2,7 +2,7 @@
 
 #-------------------------------------------------------
 #
-# $Id: example.oldstyle,v 1.3 1998/02/20 21:26:08 mergl Exp $
+# $Id: example.oldstyle,v 1.4 1998/04/14 21:14:52 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -13,7 +13,7 @@
 
 ######################### We start with some black magic to print on failure.
 
-BEGIN { $| = 1; print "1..61\n"; }
+BEGIN { $| = 1; print "1..60\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Pg;
 $loaded = 1;
@@ -23,7 +23,6 @@ print "ok 1\n";
 
 $dbmain = 'template1';
 $dbname = 'pgperltest';
-$dbhost = 'localhost';
 $trace  = '/tmp/pgtrace.out';
 $cnt    = 2;
 $DEBUG  = 0; # set this to 1 for traces
@@ -34,7 +33,6 @@ $| = 1;
 
 #	PQsetdb()
 #	PQdb()
-#	PQhost()
 #	PQport()
 #	PQfinish()
 #	PQstatus()
@@ -69,6 +67,7 @@ $| = 1;
 #	PQconndefaults()
 #	PQreset()
 #	PQoptions()
+#	PQhost()
 #	PQtty()
 #	PQgetlength()
 #	PQgetisnull()
@@ -89,7 +88,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
 ######################### create and connect to test database
 # 2-4
 
-$conn = PQsetdb($dbhost, '', '', '', $dbmain);
+$conn = PQsetdb('', '', '', '', $dbmain);
 cmp_eq(PGRES_CONNECTION_OK, PQstatus($conn));
 
 # might fail if $dbname doesn't exist => don't check resultStatus
@@ -102,7 +101,7 @@ PQclear($result);
 
 PQfinish($conn);
 
-$conn = PQsetdb($dbhost, '', '', '', $dbname);
+$conn = PQsetdb('', '', '', '', $dbname);
 cmp_eq(PGRES_CONNECTION_OK, PQstatus($conn));
 
 ######################### debug, PQtrace
@@ -113,7 +112,7 @@ if ($DEBUG) {
 }
 
 ######################### check PGconn
-# 5-8
+# 5-7
 
 $db = PQdb($conn);
 cmp_eq($dbname, $db);
@@ -121,14 +120,11 @@ cmp_eq($dbname, $db);
 $user = PQuser($conn);
 cmp_ne("", $user);
 
-$host = PQhost($conn);
-cmp_ne("", $host);
-
 $port = PQport($conn);
 cmp_ne("", $port);
 
 ######################### create and insert into table
-# 9-20
+# 8-19
 
 $result = PQexec($conn, "CREATE TABLE person (id int4, name char16)");
 cmp_eq(PGRES_COMMAND_OK, PQresultStatus($result));
@@ -143,7 +139,7 @@ for ($i = 1; $i <= 5; $i++) {
 }
 
 ######################### copy to stdout, PQgetline
-# 21-27
+# 20-26
 
 $result = PQexec($conn, "COPY person TO STDOUT");
 cmp_eq(PGRES_COPY_OUT, PQresultStatus($result));
@@ -161,7 +157,7 @@ while (-1 != $ret) {
 cmp_eq(0, PQendcopy($conn));
 
 ######################### delete and copy from stdin, PQputline
-# 28-34
+# 27-33
 
 $result = PQexec($conn, "BEGIN");
 cmp_eq(PGRES_COMMAND_OK, PQresultStatus($result));
@@ -190,7 +186,7 @@ cmp_eq(PGRES_COMMAND_OK, PQresultStatus($result));
 PQclear($result);
 
 ######################### select from person, PQgetvalue
-# 35-48
+# 34-47
 
 $result = PQexec($conn, "SELECT * FROM person");
 cmp_eq(PGRES_TUPLES_OK, PQresultStatus($result));
@@ -224,14 +220,14 @@ for ($k = 0; $k < PQntuples($result); $k++) {
 PQclear($result);
 
 ######################### PQnotifies
-# 49-51
+# 48-50
 
 if (! defined($pid = fork)) {
     die "can not fork: $!";
 } elsif (! $pid) {
     # i'm the child
     sleep 2;
-    $conn = PQsetdb($dbhost, '', '', '', $dbname);
+    $conn = PQsetdb('', '', '', '', $dbname);
     $result = PQexec($conn, "NOTIFY person");
     PQclear($result);
     PQfinish($conn);
@@ -253,7 +249,7 @@ while (1) {
 cmp_eq("person", $table);
 
 ######################### PQprint
-# 52-53
+# 51-52
 
 $result = PQexec($conn, "SELECT name FROM person WHERE id = 2");
 cmp_eq(PGRES_TUPLES_OK, PQresultStatus($result));
@@ -264,7 +260,7 @@ PQclear($result);
 close(PRINT) || die "bad PRINT: $!";
 
 ######################### PQlo_import, PQlo_export, PQlo_unlink
-# 54-60
+# 53-59
 
 $filename = 'ApachePg.pl';
 $cwd = `pwd`;
@@ -296,11 +292,11 @@ if ($DEBUG) {
 }
 
 ######################### disconnect and drop test database
-# 60-61
+# 59-60
 
 PQfinish($conn);
 
-$conn = PQsetdb($dbhost, '', '', '', $dbmain);
+$conn = PQsetdb('', '', '', '', $dbmain);
 cmp_eq(PGRES_CONNECTION_OK, PQstatus($conn));
 
 $result = PQexec($conn, "DROP DATABASE $dbname");