Allow saving of settings with underscores.

        Patch by afuna. 

diffs (12 lines):

diff -r 771de5b62ea0 -r 0f82cd2636b7 cgi-bin/LJ/Setting.pm
--- a/cgi-bin/LJ/Setting.pm     Sun May 17 17:44:18 2009 +0000
+++ b/cgi-bin/LJ/Setting.pm     Sun May 17 17:46:00 2009 +0000
@@ -64,7 +64,7 @@ sub class_from_key {
 sub class_from_key {
     my ( $val ) = @_;
 
-    my ( $class, $key ) = $val =~ 
/^((?:[a-zA-Z0-9]+__)+[a-zA-Z0-9]+)_([^_]+)$/;
+    my ( $class, $key ) = $val =~ /^((?:[a-zA-Z0-9]+__)+[a-zA-Z0-9]+)_(\w+)$/;
     $class =~ s/__/::/g if $class;
 
     return ( $class, $key );
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to