| … | |
… | |
| 1450 | } |
1450 | } |
| 1451 | |
1451 | |
| 1452 | # helper function, quote string as perl without allowing |
1452 | # helper function, quote string as perl without allowing |
| 1453 | # any code execution or other shenanigans. |
1453 | # any code execution or other shenanigans. |
| 1454 | sub q0 { |
1454 | sub q0 { |
| 1455 | "qq\x00\Q$_\E\x00" |
1455 | "qq\x00\Q$_[0]\E\x00" |
| 1456 | } |
1456 | } |
| 1457 | |
1457 | |
| 1458 | sub old_bg_expr { |
1458 | sub old_bg_expr { |
| 1459 | my ($self) = @_; |
1459 | my ($self) = @_; |
| 1460 | |
1460 | |
| … | |
… | |
| 1577 | } |
1577 | } |
| 1578 | |
1578 | |
| 1579 | sub on_osc_seq { |
1579 | sub on_osc_seq { |
| 1580 | my ($self, $op, $arg) = @_; |
1580 | my ($self, $op, $arg) = @_; |
| 1581 | |
1581 | |
| 1582 | $op eq "20" or $op eq "706" |
1582 | $op eq "20" or $op eq "705" |
| 1583 | or return; |
1583 | or return; |
| 1584 | |
1584 | |
| 1585 | $self->{bg_opts} |
1585 | $self->{bg_opts} |
| 1586 | or $self->parse_bgopts; |
1586 | or $self->parse_bgopts; |
| 1587 | |
1587 | |
