From 1d4c6d9e57fab3ff9ea6017f33bfeddbfda4f390 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Thu, 23 Jan 2003 22:11:04 +0000
Subject: [PATCH] better escape stuff

---
 list_same/list_same | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/list_same/list_same b/list_same/list_same
index 2c98034..da5346a 100755
--- a/list_same/list_same
+++ b/list_same/list_same
@@ -172,14 +172,7 @@ sub output_doubles(@) {
 sub output($) {
 	my $string = shift;
 	if ($opts{e}) {
-		$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/([\&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g;
 		print "$string";
 	} else {
 		print "$string";
@@ -201,5 +194,3 @@ Usage: $name [OPTION] ...
 EOF
 	exit;
 }
-
-