| … | … | ||
|---|---|---|---|
| 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 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |