… | … | ||
---|---|---|---|
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\x80-\x9f//) |
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 |