x11-wm/fvwm/files/fvwm-2.6.8-perl528.patch

   1 --- modules/FvwmPerl/FvwmPerl.in        2018-04-28 07:46:28.000000000 -0400
   2 +++ modules/FvwmPerl/FvwmPerl.in        2019-01-06 20:44:59.035950968 -0500
   3 @@ -319,11 +319,11 @@
   4                 $FVWM_DATADIR = $FVWM_DATADIR || $module->site_data_dir;
   5                 $FVWM_USERDIR = $FVWM_USERDIR || $module->user_data_dir;
   6         }
   7
   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/
  11                 my $result = eval "
  12                         no strict;
  13                         package PreprocessNamespace;
  14                         $1
  15                 ";