* automake.in (transform): Quote substitution.

diff --git a/ChangeLog b/ChangeLog
index fe8577f23d9fd8aaaaa169725e9e5bf3d09e0d26..1190926a2bc3a195b0dcd369f589ab6e39621312 100644 (file)
--- 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 f5471d3f477ac56298168e8c51da9e9d1da7cd57..0c1a8f0de98a86a18e55f2e12d13ffa92588f978 100755 (executable)
--- 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;
 }