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

(-)a/C4/Serials.pm (-2 / +1 lines)
Lines 1207-1213 sub _handle_seqno { Link Here
1207
1207
1208
    my ( $seq, $list, $op ) = @_;    # op = ADD | REMOVE | CHECK (default: ADD)
1208
    my ( $seq, $list, $op ) = @_;    # op = ADD | REMOVE | CHECK (default: ADD)
1209
    my $seq_r = $seq;
1209
    my $seq_r = $seq;
1210
    $seq_r =~ s/([()])/\\$1/g;       # Adjust disturbing parentheses for regex, maybe extend in future
1210
    $seq_r =~ s/([(){}])/\\$1/g;     # Adjust disturbing parentheses for regex, maybe extend in future
1211
1211
1212
    if ( !$op or $op eq 'ADD' ) {
1212
    if ( !$op or $op eq 'ADD' ) {
1213
        $list .= "; $seq" if $list !~ /(^|;)\s*$seq_r(?=;|$)/;
1213
        $list .= "; $seq" if $list !~ /(^|;)\s*$seq_r(?=;|$)/;
1214
- 

Return to bug 41330