SVN: toys/rsget.pl/RSGet/Form.pm

[sparky]

Author: sparky
Date: Thu Oct 22 15:22:07 2009
New Revision: 10813

Modified:
   toys/rsget.pl/RSGet/Form.pm
Log:
- allow unquoted values


Modified: toys/rsget.pl/RSGet/Form.pm
==============================================================================
--- toys/rsget.pl/RSGet/Form.pm	(original)
+++ toys/rsget.pl/RSGet/Form.pm	Thu Oct 22 15:22:07 2009
@@ -21,7 +21,7 @@
 		my $attr = $1;
 		my $fbody = $2;
 		my %attr = map {
-			/^(.*?)=(["'])(.*)\2$/
+			/^(.*?)=(["']?)(.*)\2$/
 				? ( lc $1, $3 )
 				: ( $_, undef )
 			} split /\s+/, $attr;
@@ -93,7 +93,7 @@
 		my $el = lc $1;
 		my $attr = $2;
 		my %attr = map {
-			/^(.*?)=(["'])(.*)\2$/
+			/^(.*?)=(["']?)(.*)\2$/
 				? ( lc $1, $3 )
 				: ( $_, undef )
 			} split /\s+/, $attr;