Ticket #655: 655.patch

File 655.patch, 595 bytes (added by patrickas, 5 years ago)

file: http://svn.perlide.org/padre/trunk/PPIx-EditorTools/lib/PPIx/EditorTools/RenameVariable.pm

  • RenameVariable.pm

     
    136136                $node->{content} = 
    137137                  substr( $node->content(), 0, 1 ) . $replacement; 
    138138            } 
    139             if ( $type eq '@' and $node->isa("PPI::Token::ArrayIndex") ) 
     139            elsif ( $type eq '@' and $node->isa("PPI::Token::ArrayIndex") ) 
    140140            {    # $#foo 
    141141                return 0 
    142142                  unless substr( $node->content, 2 ) eq substr( $varname, 1 );