| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | |||
| 3 | =head1 NAME | ||
| 4 | |||
| 5 | clipboard-osc - implement the clipboard operating system command sequence | ||
| 6 | |||
| 7 | =head1 SYNOPSIS | ||
| 8 | |||
| 9 | urxvt -pe clipboard-osc | ||
| 10 | |||
| 11 | =head1 DESCRIPTION | ||
| 12 | |||
| 13 | This extension implements the clipboard;copy Perl OSC. | ||
| 14 | |||
| 15 | =cut | ||
| 16 | |||
| 2 | 17 | ||
| 3 | sub on_osc_seq_perl { | 18 | sub on_osc_seq_perl { |
| 4 | my ($self, $osc, $resp) = @_; | 19 | my ($self, $osc, $resp) = @_; |
| 5 | 20 | ||
| 6 | return unless $osc =~ s/^clipboard;([^;]+)//; | 21 | return unless $osc =~ s/^clipboard;([^;]+)//; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |