Item12952: Brute force cleanup of regexes

foswiki · Aug 31, 2014 · d17a67d · d17a67d
1 parent d84dff2
commit d17a67d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/core/lib/Foswiki/Configure/Wizards/Save.pm b/core/lib/Foswiki/Configure/Wizards/Save.pm
@@ -236,6 +236,8 @@ sub _wordy_dump {
         my $d = Data::Dumper->Dump( [$hash] );
         my $sk = _perlKeys($keys);
         $d =~ s/^\$VAR1/\$Foswiki::cfg$sk/;
+        while ( $d =~ s#qr/\(\?-xism:(.*)\)/;$#qr/$1/;# ) { }
+        while ( $d =~ s#qr/\(\?\^:(.*)\)/;$#qr/$1/;# )    { }
         push( @dump, $d );
     }