diff options
Diffstat (limited to 'src/interfaces/perl5')
| -rw-r--r-- | src/interfaces/perl5/test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl index 6d4b5a31eda..2ae9e5359d4 100644 --- a/src/interfaces/perl5/test.pl +++ b/src/interfaces/perl5/test.pl @@ -1,6 +1,6 @@ #!/usr/local/bin/perl -w -# $Id: test.pl,v 1.9 1998/09/27 19:12:26 mergl Exp $ +# $Id: test.pl,v 1.10 1999/10/08 05:03:14 momjian Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' @@ -147,7 +147,7 @@ my $port = $conn->port; ######################### create and insert into table -$result = $conn->exec("CREATE TABLE person (id int4, name char(16))"); +$result = $conn->exec("CREATE TABLE person (id int4, name char(16)) -- test"); die $conn->errorMessage unless PGRES_COMMAND_OK eq $result->resultStatus; my $cmd = $result->cmdStatus; ( "CREATE" eq $cmd ) |