View | Details | Raw Unified | Return to bug 7167
Collapse All | Expand All

(-)a/C4/Update/Database.pm (-1 / +14 lines)
Lines 370-375 sub get_queries { Link Here
370
        chomp $line;
370
        chomp $line;
371
        $line =~ s/^\s*//;
371
        $line =~ s/^\s*//;
372
        if ( $line =~ s/^--(.*)$// ) {
372
        if ( $line =~ s/^--(.*)$// ) {
373
            my @l = split $old_delimiter;
374
            if ( @l > 1 ) {
375
                my $tmp_query;
376
                for my $l ( @l ) {
377
                    if ( $l =~ m/^--/ ) {
378
                        push @comments, $l;
379
                        next;
380
                    }
381
                    $tmp_query .= $l . $old_delimiter;
382
                }
383
                push @queries, $tmp_query if $tmp_query;
384
                next;
385
            }
386
373
            push @comments, $1;
387
            push @comments, $1;
374
            next;
388
            next;
375
        }
389
        }
376
- 

Return to bug 7167