diff options
| author | Bruce Momjian | 1999-10-08 05:03:14 +0000 |
|---|---|---|
| committer | Bruce Momjian | 1999-10-08 05:03:14 +0000 |
| commit | fbe9d1a43045c30afb4472bbdc0b257c88832ddc (patch) | |
| tree | ccd6246ba9fa1ae18dd25e4151e08947956d6814 /src/interfaces/perl5 | |
| parent | ae61ef34bd2f0a0a21e2a8c14e959a7f892e225e (diff) | |
Fix for "--" comment and no trailing newline, as seen in Perl.
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 ) |