From fbe9d1a43045c30afb4472bbdc0b257c88832ddc Mon Sep 17 00:00:00 2001 From: Bruce Momjian Date: Fri, 8 Oct 1999 05:03:14 +0000 Subject: Fix for "--" comment and no trailing newline, as seen in Perl. --- src/backend/parser/scan.l | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/backend/parser') 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 . -- cgit v1.2.3