From 7a68277bca355b46bdfed69bc2d12fdf4c911a2c Mon Sep 17 00:00:00 2001 From: Ward Wouts Date: Thu, 23 Jan 2003 22:22:54 +0000 Subject: [PATCH] spaces need too be escaped, too, also --- list_same/list_same | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/list_same/list_same b/list_same/list_same index da5346a..5851e5b 100755 --- a/list_same/list_same +++ b/list_same/list_same @@ -172,7 +172,7 @@ sub output_doubles(@) { sub output($) { my $string = shift; if ($opts{e}) { - $string =~ s/([\&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g; + $string =~ s/([ \&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g; print "$string"; } else { print "$string";