@@ -, +, @@ -- this is a comment -- another comment -- this is a comment; -- another comment; --- C4/Update/Database.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) --- a/C4/Update/Database.pm +++ a/C4/Update/Database.pm @@ -370,6 +370,20 @@ sub get_queries { chomp $line; $line =~ s/^\s*//; if ( $line =~ s/^--(.*)$// ) { + my @l = split $old_delimiter; + if ( @l > 1 ) { + my $tmp_query; + for my $l ( @l ) { + if ( $l =~ m/^--/ ) { + push @comments, $l; + next; + } + $tmp_query .= $l . $old_delimiter; + } + push @queries, $tmp_query if $tmp_query; + next; + } + push @comments, $1; next; } --