blob: ce318a9f9d84862da787c65c96bb531a2b9d2951 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
diff --git a/modules/FvwmPerl/FvwmPerl.in b/modules/FvwmPerl/FvwmPerl.in
index a8ef5dbe..95d79e94 100644
--- a/modules/FvwmPerl/FvwmPerl.in
+++ b/modules/FvwmPerl/FvwmPerl.in
@@ -321,7 +321,7 @@ sub preprocess ($;$) {
}
# perl code substitution first
- $$text_ref =~ s/\Q$quote1\E { ( .*? ) } \Q$quote2\E/
+ $$text_ref =~ s/\Q$quote1\E \{ ( .*? ) \} \Q$quote2\E/
my $result = eval "
no strict;
package PreprocessNamespace;
|
