Hello community, here is the log from the commit of package perl-HTML-Parser for openSUSE:Factory checked in at 2013-10-17 14:25:10 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTML-Parser (Old) and /work/SRC/openSUSE:Factory/.perl-HTML-Parser.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTML-Parser" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTML-Parser/perl-HTML-Parser.changes 2013-04-17 07:56:31.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTML-Parser.new/perl-HTML-Parser.changes 2013-10-17 17:43:57.000000000 +0200 @@ -1,0 +2,10 @@ +Tue Oct 15 07:30:00 UTC 2013 - [email protected] + +- update to 3.71 + Transform ':' in headers to '-' [RT#80524] + Fix for cross-compiling with Buildroot + Comment typo fix + Fix Issue #3 / RT #84144: HTML::Entities::decode_entities() needs + to call SV_CHECK_THINKFIRST() before checking READONLY flag + +------------------------------------------------------------------- Old: ---- HTML-Parser-3.69.tar.gz New: ---- HTML-Parser-3.71.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTML-Parser.spec ++++++ --- /var/tmp/diff_new_pack.pgNHDV/_old 2013-10-17 17:44:01.000000000 +0200 +++ /var/tmp/diff_new_pack.pgNHDV/_new 2013-10-17 17:44:01.000000000 +0200 @@ -19,7 +19,7 @@ %bcond_with opt Name: perl-HTML-Parser -Version: 3.69 +Version: 3.71 Release: 0 %define cpan_name HTML-Parser Summary: HTML parser class ++++++ HTML-Parser-3.69.tar.gz -> HTML-Parser-3.71.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/Changes new/HTML-Parser-3.71/Changes --- old/HTML-Parser-3.69/Changes 2011-10-15 17:31:08.000000000 +0200 +++ new/HTML-Parser-3.71/Changes 2013-05-09 00:21:16.000000000 +0200 @@ -1,4 +1,25 @@ _______________________________________________________________________________ +2013-05-09 Release 3.71 + +Gisle Aas (1): + Transform ':' in headers to '-' [RT#80524] + + +_______________________________________________________________________________ +2013-03-28 Release 3.70 + +François Perrad (1): + Fix for cross-compiling with Buildroot + +Gisle Aas (1): + Comment typo fix + +Yves Orton (1): + Fix Issue #3 / RT #84144: HTML::Entities::decode_entities() needs + to call SV_CHECK_THINKFIRST() before checking READONLY flag + + +_______________________________________________________________________________ 2011-10-15 Release 3.69 Gisle Aas (4): diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/MANIFEST new/HTML-Parser-3.71/MANIFEST --- old/HTML-Parser-3.69/MANIFEST 2011-10-15 17:32:56.000000000 +0200 +++ new/HTML-Parser-3.71/MANIFEST 2013-05-09 00:21:52.000000000 +0200 @@ -76,4 +76,5 @@ tokenpos.h Dynamically sized token_pos arrays typemap Convert between HTML::Parser and 'struct p_state' util.c Some utility functions -META.yml Module meta-data (added by MakeMaker) +META.yml Module YAML meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/META.json new/HTML-Parser-3.71/META.json --- old/HTML-Parser-3.69/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Parser-3.71/META.json 2013-05-09 00:21:52.000000000 +0200 @@ -0,0 +1,53 @@ +{ + "abstract" : "HTML parser class", + "author" : [ + "Gisle Aas <[email protected]>" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "HTML-Parser", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0", + "Test::More" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "recommends" : { + "HTTP::Headers" : "0" + }, + "requires" : { + "HTML::Tagset" : "3", + "XSLoader" : "0", + "perl" : "5.008" + } + } + }, + "release_status" : "stable", + "resources" : { + "repository" : { + "url" : "http://github.com/gisle/html-parser"; + }, + "x_MailingList" : "mailto:[email protected]"; + }, + "version" : "3.71" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/META.yml new/HTML-Parser-3.71/META.yml --- old/HTML-Parser-3.69/META.yml 2011-10-15 17:32:56.000000000 +0200 +++ new/HTML-Parser-3.71/META.yml 2013-05-09 00:21:52.000000000 +0200 @@ -1,30 +1,30 @@ ---- #YAML:1.0 -name: HTML-Parser -version: 3.69 -abstract: HTML parser class +--- +abstract: 'HTML parser class' author: - - Gisle Aas <[email protected]> -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 + - 'Gisle Aas <[email protected]>' build_requires: - ExtUtils::MakeMaker: 0 - Test::More: 0 -requires: - HTML::Tagset: 3 - perl: 5.008 - XSLoader: 0 -resources: - MailingList: mailto:[email protected] - repository: http://github.com/gisle/html-parser -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.57_05 + ExtUtils::MakeMaker: 0 + Test::More: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +license: perl meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: HTML-Parser +no_index: + directory: + - t + - inc recommends: - HTTP::Headers: 0 + HTTP::Headers: 0 +requires: + HTML::Tagset: 3 + XSLoader: 0 + perl: 5.008 +resources: + repository: http://github.com/gisle/html-parser + x_MailingList: mailto:[email protected] +version: 3.71 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/Makefile.PL new/HTML-Parser-3.71/Makefile.PL --- old/HTML-Parser-3.69/Makefile.PL 2011-10-15 17:20:01.000000000 +0200 +++ new/HTML-Parser-3.71/Makefile.PL 2013-03-25 23:32:22.000000000 +0100 @@ -34,10 +34,10 @@ { ' pfunc.h : mkpfunc - $(PERL) mkpfunc >pfunc.h + $(PERLRUN) mkpfunc >pfunc.h hctype.h : mkhctype - $(PERL) mkhctype >hctype.h + $(PERLRUN) mkhctype >hctype.h ' } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/Parser.pm new/HTML-Parser-3.71/Parser.pm --- old/HTML-Parser-3.69/Parser.pm 2011-10-15 17:25:33.000000000 +0200 +++ new/HTML-Parser-3.71/Parser.pm 2013-05-09 00:19:18.000000000 +0200 @@ -9,7 +9,7 @@ use strict; use vars qw($VERSION @ISA); -$VERSION = "3.69"; +$VERSION = "3.71"; require HTML::Entities; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/Parser.xs new/HTML-Parser-3.71/Parser.xs --- old/HTML-Parser-3.69/Parser.xs 2011-10-15 15:42:46.000000000 +0200 +++ new/HTML-Parser-3.71/Parser.xs 2013-03-25 23:33:39.000000000 +0100 @@ -616,8 +616,13 @@ for (i = 0; i < items; i++) { if (GIMME_V != G_VOID) ST(i) = sv_2mortal(newSVsv(ST(i))); - else if (SvREADONLY(ST(i))) - croak("Can't inline decode readonly string"); + else { +#ifdef SV_CHECK_THINKFIRST + SV_CHECK_THINKFIRST(ST(i)); +#endif + if (SvREADONLY(ST(i))) + croak("Can't inline decode readonly string in decode_entities()"); + } decode_entities(aTHX_ ST(i), entity2char, 0); } SP += items; @@ -641,8 +646,11 @@ else { entities_hv = 0; } +#ifdef SV_CHECK_THINKFIRST + SV_CHECK_THINKFIRST(string); +#endif if (SvREADONLY(string)) - croak("Can't inline decode readonly string"); + croak("Can't inline decode readonly string in _decode_entities()"); decode_entities(aTHX_ string, entities_hv, expand_prefix); bool diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/hparser.c new/HTML-Parser-3.71/hparser.c --- old/HTML-Parser-3.69/hparser.c 2009-10-25 22:52:01.000000000 +0100 +++ new/HTML-Parser-3.71/hparser.c 2013-03-25 23:32:23.000000000 +0100 @@ -1520,7 +1520,7 @@ } s++; } - return beg; /* could not fix end */ + return beg; /* could not find end */ } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/lib/HTML/HeadParser.pm new/HTML-Parser-3.71/lib/HTML/HeadParser.pm --- old/HTML-Parser-3.69/lib/HTML/HeadParser.pm 2011-10-15 17:27:21.000000000 +0200 +++ new/HTML-Parser-3.71/lib/HTML/HeadParser.pm 2013-05-09 00:19:35.000000000 +0200 @@ -67,6 +67,10 @@ an C<X-Meta-Charset> header, using the value of the C<charset> attribute as the pushed header value. +The ':' character can't be represented in header field names, so +if the meta element contains this char it's substituted with '-' +before forming the field name. + =back =head1 METHODS @@ -87,7 +91,7 @@ use strict; use vars qw($VERSION $DEBUG); #$DEBUG = 1; -$VERSION = "3.69"; +$VERSION = "3.71"; =item $hp = HTML::HeadParser->new @@ -204,6 +208,7 @@ return; } } + $key =~ s/:/-/g; $self->{'header'}->push_header($key => $attr->{content}); } elsif ($tag eq 'base') { return unless exists $attr->{href}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/t/entities.t new/HTML-Parser-3.71/t/entities.t --- old/HTML-Parser-3.69/t/entities.t 2010-04-04 22:29:07.000000000 +0200 +++ new/HTML-Parser-3.71/t/entities.t 2013-03-25 23:33:39.000000000 +0100 @@ -1,6 +1,6 @@ use HTML::Entities qw(decode_entities encode_entities encode_entities_numeric); -use Test::More tests => 18; +use Test::More tests => 20; $a = "Våre norske tegn bør æres"; @@ -53,6 +53,17 @@ encode_entities($a); is($a, $ent); +{ #RT #84144 - https://rt.cpan.org/Public/Bug/Display.html?id=84144 + + my %hash= ( + "Våre norske tegn bør æres" => "V�re norske tegn b�r �res" + ); + + my ($got, $eval_ok); + $eval_ok= eval { $got= decode_entities((keys %hash)[0]); 1 }; + is( $eval_ok, 1, "decode_entitites() when processing a key as input"); + is( $got, (values %hash)[0], "decode_entities() decodes a key properly"); +} # From: Bill Simpson-Young <[email protected]> # Subject: HTML entities problem with 5.11 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/t/entities2.t new/HTML-Parser-3.71/t/entities2.t --- old/HTML-Parser-3.69/t/entities2.t 2008-04-04 10:44:54.000000000 +0200 +++ new/HTML-Parser-3.71/t/entities2.t 2013-03-25 23:33:39.000000000 +0100 @@ -8,7 +8,7 @@ eval { _decode_entities("<", undef); }; -like($@, qr/^Can't inline decode readonly string/); +like($@, qr/^(?:Can't inline decode readonly string|Modification of a read-only value attempted)/); eval { my $a = ""; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.69/t/headparser.t new/HTML-Parser-3.71/t/headparser.t --- old/HTML-Parser-3.69/t/headparser.t 2010-07-09 14:51:23.000000000 +0200 +++ new/HTML-Parser-3.71/t/headparser.t 2013-05-09 00:11:19.000000000 +0200 @@ -1,7 +1,7 @@ #!perl -w use strict; -use Test::More tests => 16; +use Test::More tests => 17; { package H; sub new { bless {}, shift; } @@ -9,6 +9,7 @@ sub header { my $self = shift; my $key = uc(shift); + die if $key =~ /:/; my $old = $self->{$key}; if (@_) { $self->{$key} = shift; } $old; @@ -17,6 +18,7 @@ sub push_header { my($self, $k, $v) = @_; $k = uc($k); + die if $k =~ /:/; if (exists $self->{$k}) { $self->{$k} = [ $self->{$k} ] unless ref $self->{$k}; push(@{$self->{$k}}, $v); @@ -48,6 +50,7 @@ <title>Å v�re eller å ikke v�re</title> <meta http-equiv="Expires" content="Soon"> <meta http-equiv="Foo" content="Bar"> +<meta name='twitter:card' content='photo' /> <link href="mailto:[email protected]"; rev=made title="Gisle Aas"> <script> @@ -97,6 +100,7 @@ is($p->header('Content-Base'), 'http://www.sn.no'); is_deeply($p->header('X-Meta-Keywords'), ['test, test, test,...', 'more']); is($p->header('X-Meta-Charset'), 'ISO-8859-1'); +is($p->header('X-Meta-Twitter-Card'), 'photo'); like($p->header('Link'), qr/<mailto:gisle\@aas.no>/); # This header should not be present because the head ended -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
