| … | … | ||
|---|---|---|---|
| 26 | } | 26 | } |
| 27 | 27 | ||
| 28 | sub on_tt_paste { | 28 | sub on_tt_paste { |
| 29 | my ($self, $str) = @_; | 29 | my ($self, $str) = @_; |
| 30 | 30 | ||
| 31 | my $count = ($str =~ tr/\x00-\x1f\x80-\x9f//) | 31 | my $count = ($str =~ tr/\x00-\x1f//) |
| 32 | or return; | 32 | or return; |
| 33 | 33 | ||
| 34 | $self->{paste} = \$str; | 34 | $self->{paste} = \$str; |
| 35 | $self->msg ("Pasting $count control characters, continue? (y/n)"); | 35 | $self->msg ("Pasting $count control characters, continue? (y/n)"); |
| 36 | 36 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |