ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

spaces need too be escaped, too, also

Browse source
This commit is contained in:
Ward Wouts 2003-01-23 22:22:54 +00:00
parent 1d4c6d9e57
commit 7a68277bca
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
list_same/list_same
View file

@ -172,7 +172,7 @@ sub output_doubles(@) {
sub output($) { sub output($) {
my $string = shift; my $string = shift;
if ($opts{e}) { if ($opts{e}) {
$string =~ s/([\&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g; $string =~ s/([ \&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g;
print "$string"; print "$string";
} else { } else {
print "$string"; print "$string";