diff --git a/lib/SQL/Translator/Parser/Sybase.pm b/lib/SQL/Translator/Parser/Sybase.pm index e3fd94333..548740a78 100644 --- a/lib/SQL/Translator/Parser/Sybase.pm +++ b/lib/SQL/Translator/Parser/Sybase.pm @@ -81,6 +81,15 @@ exec : exec_statement(s) GO exec_statement : /exec/i /[^\n]+/ +comment : /^\s*--.*\n/ + { + my $comment = $item[1]; + $comment =~ s/^\s*--\s*//; + $comment =~ s/\s*$//; + $return = $comment; + push @table_comments, $comment; + } + comment : comment_start comment_middle comment_end { my $comment = $item[2]; diff --git a/t/data/sybase/create.sql b/t/data/sybase/create.sql index 4ae380b46..7b32468fa 100644 --- a/t/data/sybase/create.sql +++ b/t/data/sybase/create.sql @@ -1,5 +1,5 @@ -/* Script generated by dbschema.pl(2.4.2) on Mon Aug 18 14:15:25 2003. */ -/* Script extracted on a solaris system. */ +-- Script generated by dbschema.pl(2.4.2) on Mon Aug 18 14:15:25 2003. +-- Script extracted on a solaris system. use master go @@ -2156,7 +2156,7 @@ end set transaction isolation level 1 -/* Check to see if this language is in Syslanguages. */ +-- Check to see if this language is in Syslanguages. if exists (select * from master.dbo.syslanguages where name = @name)