1 --- a/modules/FvwmPerl/FvwmPerl.in 2018-04-28 07:46:28.000000000 -0400
2 +++ b/modules/FvwmPerl/FvwmPerl.in 2019-01-06 20:44:59.035950968 -0500
4 $FVWM_DATADIR = $FVWM_DATADIR || $module->site_data_dir;
5 $FVWM_USERDIR = $FVWM_USERDIR || $module->user_data_dir;
8 # perl code substitution first
9 - $$text_ref =~ s/\Q$quote1\E { ( .*? ) } \Q$quote2\E/
10 + $$text_ref =~ s/\Q$quote1\E \{ ( .*? ) \} \Q$quote2\E/
13 package PreprocessNamespace;