quotemeta.patch

[Alexandre Duret-Lutz]

Index: ChangeLog
--- ChangeLog
+++ ChangeLog
@@ -1,1 +1,7 @@
+2001-11-15  Alexandre Duret-Lutz  <address@hidden>
+
+       * automake.in (define_objects_from_sources,
+       handle_lib_objects_cond, value_to_list): Use quotemeta instead of
+       the equivalant substitution.
+

Index: automake.in
===================================================================
RCS file: /home/adl/CVSROOT/automake-20011109-2037/automake.in,v
retrieving revision 1.5
diff -u -r1.5 automake.in
--- automake.in 15 Nov 2001 19:18:24 -0000      1.5
+++ automake.in 15 Nov 2001 19:57:46 -0000
@@ -2072,7 +2072,7 @@
                {
                    $subvar = $1;
                    $to = $3;
-                   ($from = $2) =~ s/(\W)/\\$1/g;
+                   $from = quotemeta $2;
                }
                push @substfroms, $from;
                push @substtos, $to;
@@ -2349,8 +2349,7 @@
                    my $rewrite = $iter;
                    $rewrite =~ s/\.c$/.P$myobjext/;
                    $dep_files{'$(DEPDIR)/' . $rewrite} = 1;
-                   ($rewrite = $iter) =~ s/(\W)/\\$1/g;
-                   $rewrite = "^" . $rewrite . "\$";
+                   $rewrite = "^" . quotemeta ($iter) . "\$";
                    # Only require the file if it is not a built source.
                    if (! variable_defined ('BUILT_SOURCES')
                        || ! grep (/$rewrite/,
@@ -6282,7 +6281,7 @@
            {
                $varname = $1;
                $to = $3;
-               ($from = $2) =~ s/(\W)/\\$1/g;
+               $from = quotemeta $2;
            }
 
            # Find the value.