From a4c42bfb2337d37da89d789cb8cc226367994e32 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 21 May 2012 00:15:27 +0000 Subject: perl 5.14.2 from siep git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/HTML/TokeParser.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/HTML/TokeParser.pm') diff --git a/Master/tlpkg/tlperl/lib/HTML/TokeParser.pm b/Master/tlpkg/tlperl/lib/HTML/TokeParser.pm index 94128dbef75..959b96f6a26 100644 --- a/Master/tlpkg/tlperl/lib/HTML/TokeParser.pm +++ b/Master/tlpkg/tlperl/lib/HTML/TokeParser.pm @@ -2,7 +2,7 @@ package HTML::TokeParser; require HTML::PullParser; @ISA=qw(HTML::PullParser); -$VERSION = "3.57"; +$VERSION = "3.69"; use strict; use Carp (); @@ -27,17 +27,19 @@ sub new { my $class = shift; my %cnf; + if (@_ == 1) { my $type = (ref($_[0]) eq "SCALAR") ? "doc" : "file"; %cnf = ($type => $_[0]); } else { + unshift @_, (ref($_[0]) eq "SCALAR") ? "doc" : "file" if(scalar(@_) % 2 == 1); %cnf = @_; } my $textify = delete $cnf{textify} || {img => "alt", applet => "alt"}; - my $self = $class->SUPER::new(%cnf, %ARGS) || return undef; + my $self = $class->SUPER::new(%ARGS, %cnf) || return undef; $self->{textify} = $textify; $self; -- cgit v1.2.3