From: Tom Tromey <tromey@redhat.com>
Date: Thu, 25 Jan 2001 03:26:55 +0000 (+0000)
Subject: 	* automake.in (transform): Quote substitution.
X-Git-Tag: Release-1-4d~98
X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=4ff143fa051d2b619c982e8b45741f4508f58bcd;p=automake.git

	* automake.in (transform): Quote substitution.
---

diff --git a/ChangeLog b/ChangeLog
index fe8577f2..1190926a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-24  Tom Tromey  <tromey@redhat.com>
+
+	* automake.in (transform): Quote substitution.
+
 2001-01-21  Alexandre Duret-Lutz  <duret_g@epita.fr>
 	    Tom Tromey  <tromey@redhat.com>
 
diff --git a/automake.in b/automake.in
index f5471d3f..0c1a8f0d 100755
--- a/automake.in
+++ b/automake.in
@@ -7076,9 +7076,11 @@ sub transform
     local (%pairs) = @_;
     local ($result) = '';
 
+    local ($quoted);
     foreach $pattern (sort keys %pairs)
     {
-        $result .= 's,\@' . $pattern . '\@,' . $pairs{$pattern} . ',g;';
+	($quoted = $pairs{$pattern}) =~ s/(\W)/\\$1/g;
+        $result .= 's,\@' . $pattern . '\@,' . $quoted . ',g;';
     }
     return $result;
 }