Skip Menu |
 

This queue is for tickets about the libwww-perl CPAN distribution.

Report information
The Basics
Id: 43816
Status: resolved
Priority: 0/
Queue: libwww-perl

People
Owner: Nobody in particular
Requestors: bitcard [...] ew.ewheeler.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: HTML::Form 'button type=submit' tags are not supported (simple patch attached)
Download (untitled) / with headers
text/plain 402b
This form cannot be clicked on (HTML::Form->click) because <button> tags are not parsed: <form action=foo> <button type=submit name=buttonsubmit value=1234>Click Me!</button> </form> Attached is a 2-line patch. Basically it treats all 'button' tags as 'input' since these two tags are verbially the same: <button type=submit name=foo value=bar> <input type=submit name=foo value=bar> -Eric
Subject: Form.pm.diff
Download Form.pm.diff
text/x-diff 723b
--- Form-original.pm 2009-03-03 12:01:36.000000000 -0800 +++ Form.pm 2009-03-03 12:02:09.000000000 -0800 @@ -117,7 +117,7 @@ sub parse my $p = HTML::TokeParser->new(ref($html) ? $html->decoded_content(ref => 1) : \$html); eval { # optimization - $p->report_tags(qw(form input textarea select optgroup option keygen label)); + $p->report_tags(qw(form input textarea select optgroup option keygen label button)); }; my $base_uri = delete $opt{base}; @@ -155,6 +155,8 @@ sub parse my($tag, $attr) = @$t; last if $tag eq "/form"; + $tag = 'input' if ($tag eq 'button'); + # if we are inside a label tag, then keep # appending any text to the current label if(defined $current_label) {
Download (untitled) / with headers
text/plain 137b
AFAICT they have been supported since <http://github.com/gisle/libwww- perl/commit/e4fdafd42bb999740a08e20fe52d53b5d3befe2d> was applied.
That patch was applied in libwww-perl-5.810


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.