Fix regex thinko

diff --git a/src/test/regress/ddl-deparse/dump_regress_db.pl b/src/test/regress/ddl-deparse/dump_regress_db.pl
index 3af91d8fc712e89e45cff7745fbc565d34b9b11f..ed2037b23770558ffff0921c9259ef502e5d1289 100755 (executable)
--- a/src/test/regress/ddl-deparse/dump_regress_db.pl
+++ b/src/test/regress/ddl-deparse/dump_regress_db.pl
@@ -106,9 +106,10 @@ while(<SRC>) {
 my @pg_dump_lines = split(/\n/, $pg_dump_output);
 
 # Replace hard-coded paths with pg_regress tokens
+my $DL_SUFFIX = quotemeta($options{'DLSUFFIX'});
 foreach my $line (@pg_dump_lines) {
     $line =~ s/$options{'dlpath'}/\@libdir\@/;
-    $line =~ s/$options{'DLSUFFIX'}/\@DLSUFFIX\@/;
+    $line =~ s/$DL_SUFFIX/\@DLSUFFIX\@/;
     print qq|$line\n|;
 }