mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/backend/parser/scan.l
View File

@ -8,7 +8,7 @@
* *
* *
* IDENTIFICATION * 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} param \${integer}
comment ("--"|"//").*\n comment ("--"|"//").*
space [ \t\n\f] space [ \t\n\f]
other . other .

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

@ -1,6 +1,6 @@
#!/usr/local/bin/perl -w #!/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 # Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl' # `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 ######################### 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; die $conn->errorMessage unless PGRES_COMMAND_OK eq $result->resultStatus;
my $cmd = $result->cmdStatus; my $cmd = $result->cmdStatus;
( "CREATE" eq $cmd ) ( "CREATE" eq $cmd )