Author: sparky
Date: Sat Jun 5 00:18:17 2010
New Revision: 11531
Modified:
toys/rsget.pl/RSGet/Form.pm
Log:
- improved split_attributes() - required for TurboBit
Modified: toys/rsget.pl/RSGet/Form.pm
==============================================================================
--- toys/rsget.pl/RSGet/Form.pm (original)
+++ toys/rsget.pl/RSGet/Form.pm Sat Jun 5 00:18:17 2010
@@ -121,21 +121,20 @@
{
local $_ = shift;
my %attr;
- while ( s/^\s*([a-z0-9_]+)([=\s])//i ) {
+ while ( s/^\s*([a-z0-9_]+)//i ) {
my $name = lc $1;
- my $eq = $2;
- if ( $eq eq "=" ) {
+ if ( s/^\s*=// ) {
my $value;
- if ( s/^(["'])// ) {
+ if ( s/^\s*(["'])// ) {
my $quot = $1;
s/^(.*?)$quot//;
$value = $1;
} else {
- s/(\S+)//;
+ s/^\s*(\S+)//;
$value = $1;
}
$attr{ $name } = defined $value ? de_ml( $value ) : "";
- } else {
+ } elsif ( s/^\s+// ) {
$attr{ $name } = $name;
}
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
