Ticket #654: 654.patch

File 654.patch, 561 bytes (added by patrickas, 5 years ago)

patch

  • Perl.pm

     
    471471    # find start of symbol 
    472472    # TODO: This could be more robust, no? 
    473473    # Ticket #639 
     474    $col-- if (  $col && substr( $line_content, $col-1, 2 ) =~ /^\w\W$/ ) ; # if we are at the end of a symbol (maybe we need better detection?), start counting on the previous letter. this should resolve #419 and #654 
    474475    while (1) { 
    475476        if ( $col <= 0 or substr( $line_content, $col, 1 ) =~ /^[^#\w:\']$/ ) { 
    476477            last;