From fbe9d1a43045c30afb4472bbdc0b257c88832ddc Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Fri, 8 Oct 1999 05:03:14 +0000
Subject: [PATCH] Fix for "--" comment and no trailing newline, as seen in
 Perl.

---
 src/backend/parser/scan.l    | 4 ++--
 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 b6c514a5c7..a18ab2d2de 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 6d4b5a31ed..2ae9e5359d 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 )