|
Lines 319-329
Link Here
|
| 319 |
$FVWM_DATADIR = $FVWM_DATADIR || $module->site_data_dir; |
319 |
$FVWM_DATADIR = $FVWM_DATADIR || $module->site_data_dir; |
| 320 |
$FVWM_USERDIR = $FVWM_USERDIR || $module->user_data_dir; |
320 |
$FVWM_USERDIR = $FVWM_USERDIR || $module->user_data_dir; |
| 321 |
} |
321 |
} |
| 322 |
|
322 |
|
| 323 |
# perl code substitution first |
323 |
# perl code substitution first |
| 324 |
$$text_ref =~ s/\Q$quote1\E { ( .*? ) } \Q$quote2\E/ |
324 |
$$text_ref =~ s/\Q$quote1\E \{ ( .*? ) \} \Q$quote2\E/ |
| 325 |
my $result = eval " |
325 |
my $result = eval " |
| 326 |
no strict; |
326 |
no strict; |
| 327 |
package PreprocessNamespace; |
327 |
package PreprocessNamespace; |
| 328 |
$1 |
328 |
$1 |
| 329 |
"; |
329 |
"; |
