mirror of
git://slackware.nl/current.git
synced 2024-12-31 10:28:29 +01:00
13 lines
404 B
Diff
13 lines
404 B
Diff
|
--- ./src/perl/background.orig 2021-05-09 10:04:44.000000000 -0500
|
||
|
|
+++ ./src/perl/background 2023-01-03 13:53:59.865031717 -0600
|
||
|
|
@@ -1451,8 +1451,7 @@
|
||
|
|
# any code execution or other shenanigans. does not
|
||
|
|
# support binary NULs in string.
|
||
|
|
sub q0 {
|
||
|
|
- (my $str = shift) =~ s/\x00//g; # make sure there really aren't any embedded NULs
|
||
|
|
- "q\x00$str\x00"
|
||
|
|
+ "qq\x00\Q$_[0]\E\x00"
|
||
|
|
}
|
||
|
|
|
||
|
|
sub old_bg_expr {
|