subst_values: cleanup regex

diff --git a/PMG/Utils.pm b/PMG/Utils.pm
index 75fe7b554f305e1d8ce493852261d58c43ad2fe4..12562015ca6f6db1a19a78d4979ac0c03ec128fb 100644 (file)
--- a/PMG/Utils.pm
+++ b/PMG/Utils.pm
@@ -83,8 +83,8 @@ sub subst_values {
 
     foreach my $k (keys %$dh) {
        my $v = $dh->{$k};
-       if (defined ($v)) {
-           $body =~ s/__${k}__/$v/gs;
+       if (defined($v)) {
+           $body =~ s/__\Q${k}\E__/$v/gs;
        }
     }