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

(-)a/C4/Charset.pm (-6 / +2 lines)
Lines 409-419 sub nsb_clean { Link Here
409
    # handles non sorting blocks
409
    # handles non sorting blocks
410
    my ($string) = @_ ;
410
    my ($string) = @_ ;
411
    $_ = $string ;
411
    $_ = $string ;
412
    s/$NSB//g ;
412
    s/($C2){0,1}($NSB|$NSB2)//g ;
413
    s/$NSE//g ;
413
    s/($C2){0,1}($NSE|$NSE2)//g ;
414
    s/$NSB2//g ;
415
    s/$NSE2//g ;
416
    s/$C2//g ;
417
    $string = $_ ;
414
    $string = $_ ;
418
415
419
    return($string) ;
416
    return($string) ;
420
- 

Return to bug 9859