From 9f1d2be8d66b87451f8359c0fcca6cf348a58e6f Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Thu, 23 Jan 2003 14:34:42 +0000
Subject: [PATCH] betere escapes

---
 list_same/list_same | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/list_same/list_same b/list_same/list_same
index 8fa9c22..8931356 100755
--- a/list_same/list_same
+++ b/list_same/list_same
@@ -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;
 		print "$string";
 	} else {
 		print "$string";
 	}
+	$opt_e = $opt_e;
 }