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;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
