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

diff --git a/src/backend/parser/scan.l b/src/backend/parser/scan.l
index b6c514a5c7382b778ed477d3be71c37aecebc02b..a18ab2d2de361e278e9606a50f8ba4375bff7432 100644 (file)
--- 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 6d4b5a31eda36988eeea0523ce7a1fcd6cb3c0ff..2ae9e5359d45a9652332556daeefd131ae0424b9 100644 (file)
--- 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 )