From 846cdbdbf965fc50478bcc4c6436e3dc6a489f3f Mon Sep 17 00:00:00 2001
From: Chris Xiong <chirs241097@gmail.com>
Date: Thu, 14 Oct 2021 19:01:18 -0400
Subject: Initial commit.

---
 x11-wm/fvwm3/files/fvwm3_perl528.patch | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 x11-wm/fvwm3/files/fvwm3_perl528.patch

(limited to 'x11-wm/fvwm3/files/fvwm3_perl528.patch')

diff --git a/x11-wm/fvwm3/files/fvwm3_perl528.patch b/x11-wm/fvwm3/files/fvwm3_perl528.patch
new file mode 100644
index 0000000..ce318a9
--- /dev/null
+++ b/x11-wm/fvwm3/files/fvwm3_perl528.patch
@@ -0,0 +1,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;
-- 
cgit v1.2.3