diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/backend/parser/scan.l | 4 | ||||
| -rw-r--r-- | src/interfaces/perl5/test.pl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/backend/parser/scan.l b/src/backend/parser/scan.l index b6c514a5c73..a18ab2d2de3 100644 --- a/src/backend/parser/scan.l +++ b/src/backend/parser/scan.l @@ -8,7 +8,7 @@ * * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.57 1999/09/28 03:41:36 momjian Exp $ + * $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.58 1999/10/08 05:03:13 momjian Exp $ * *------------------------------------------------------------------------- */ @@ -167,7 +167,7 @@ real (((({digit}*\.{digit}+)|({digit}+\.{digit}*))([Ee][-+]?{digit}+)?)|({dig param \${integer} -comment ("--"|"//").*\n +comment ("--"|"//").* space [ \t\n\f] other . 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 ) |