database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-10-31 10:30:33 +03:00
Code Activity

Fix for "--" comment and no trailing newline, as seen in Perl.

Browse Source
This commit is contained in:
Bruce Momjian
1999-10-08 05:03:14 +00:00
parent ae61ef34bd
commit fbe9d1a430
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/interfaces/perl5/test.pl
View File

@@ -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 )