← Back to branch summary

~ubuntu-branches/ubuntu/karmic/libwww-perl/karmic-updates

« back to all changes in this revision

Viewing changes to lib/HTML/Form.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2008-07-12 14:29:21 UTC
  • mfrom: (1.1.6 upstream) (4.1.1 lenny)
  • Revision ID: james.westby@ubuntu.com-20080712142921-qnntzesrvlabltun
Tags: 5.813-1
http://bugs.debian.org/490426
* New upstream release.
* Drop (build) dependencies on obsolete packages libnet-perl and
  libmime-base64-perl, use only the minimum perl version where they are
  included in perl core instead (closes: #490426).
* debian/copyright: update years of copyright.
* debian/control: change my email address.
* Set Standards-Version to 3.8.0 (no changes).
* Refresh debian/rules, no functional changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/HTML/Form.pm
5
5
use Carp ();
6
6
 
7
7
use vars qw($VERSION);
8
 
$VERSION = "5.811";
 
8
$VERSION = "5.813";
9
9
 
10
10
my %form_tags = map {$_ => 1} qw(input textarea button select option);
11
11
 
113
113
 
114
114
    require HTML::TokeParser;
115
115
    my $p = HTML::TokeParser->new(ref($html) ? $html->decoded_content(ref => 1) : \$html);
 
116
    die "Failed to create HTML::TokeParser object" unless $p;
116
117
    eval {
117
118
        # optimization
118
119
        $p->report_tags(qw(form input textarea select optgroup option keygen label button));
149
150
                             $action,
150
151
                             $attr->{'enctype'});
151
152
            $f->{attr} = $attr;
 
153
            %openselect = ();
152
154
            push(@forms, $f);
153
155
            my(%labels, $current_label);
154
156
            while (my $t = $p->get_tag) {