Try to be a little bit more helpful with "Strange attribute syntax..."

warnings. (Actually, is syntax like foo="bar"foo="bar" actually valid?)
This commit is contained in:
acli 2004-02-25 06:49:35 +00:00
parent 3c20689a73
commit fc4cd326b1
1 changed files with 7 additions and 1 deletions

View File

@ -295,7 +295,13 @@ sub _extract_attributes ($;$) {
error_normal((scalar(split(/\n/, $s)) - 1) . " more line(s) not shown.", undef);
$this->_set_fatal( 1 );
} else {
warn_normal "Strange attribute syntax: $s\n", $lc;
# There's something wrong with the attribute syntax.
# We might be able to deduce a likely cause by looking more.
if ($s =~ /^[a-z0-9]/is && "<foo $s>" =~ /^$re_tag_compat$/s) {
warn_normal "Probably missing whitespace before or missing quotation mark near: $s\n", $lc;
} else {
warn_normal "Strange attribute syntax: $s\n", $lc;
}
}
}
return \%attr;