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

betere escapes

Browse source
This commit is contained in:
Ward Wouts 2003-01-23 14:34:42 +00:00
parent edf5502782
commit 9f1d2be8d6
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
list_same/list_same
View file

@ -93,8 +93,13 @@ sub output($) {
$string =~ s/ /\\ /g; $string =~ s/ /\\ /g;
$string =~ s/'/\\'/g; $string =~ s/'/\\'/g;
$string =~ s/"/\\"/g; $string =~ s/"/\\"/g;
$string =~ s/\(/\\\(/g;
$string =~ s/\)/\\\)/g;
$string =~ s/\[/\\\[/g;
$string =~ s/\]/\\\]/g;
print "$string"; print "$string";
} else { } else {
print "$string"; print "$string";
} }
$opt_e = $opt_e;
} }