Hello community, here is the log from the commit of package perl-HTML-Parser for openSUSE:Factory checked in at 2016-01-28 22:50:01 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2015-04-21 10:50:31.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTML-Parser.new/perl-HTML-Parser.changes 2016-01-28 22:50:02.000000000 +0100 @@ -1,0 +2,26 @@ +Wed Jan 20 10:12:44 UTC 2016 - coolo@suse.com + +- updated to 3.72 + see /usr/share/doc/packages/perl-HTML-Parser/Changes + + 2016-01-19 Release 3.72 + + Gisle Aas (3): + Avoid more clang casting warnings + Remove trailing whitespace + Ensure entities expand to utf8 sequences under 'utf8_mode' [RT#99755] + + David Steinbrunner (2): + typo fix + typo fixes + + Jacques Germishuys (1): + Silence clang warning + + bulk88 (1): + const+static-ing + + + _______________________________________________________________________________ + +------------------------------------------------------------------- Old: ---- HTML-Parser-3.71.tar.gz New: ---- HTML-Parser-3.72.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTML-Parser.spec ++++++ --- /var/tmp/diff_new_pack.Q7yrdZ/_old 2016-01-28 22:50:03.000000000 +0100 +++ /var/tmp/diff_new_pack.Q7yrdZ/_new 2016-01-28 22:50:03.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-HTML-Parser # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,15 @@ Name: perl-HTML-Parser -Version: 3.71 +Version: 3.72 Release: 0 %define cpan_name HTML-Parser Summary: HTML parser class License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/HTML-Parser/ -Source: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros @@ -55,7 +56,7 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f -print0 | xargs -0 chmod 644 +find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" ++++++ HTML-Parser-3.71.tar.gz -> HTML-Parser-3.72.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/Changes new/HTML-Parser-3.72/Changes --- old/HTML-Parser-3.71/Changes 2013-05-09 00:21:16.000000000 +0200 +++ new/HTML-Parser-3.72/Changes 2016-01-19 18:37:01.000000000 +0100 @@ -1,4 +1,23 @@ _______________________________________________________________________________ +2016-01-19 Release 3.72 + +Gisle Aas (3): + Avoid more clang casting warnings + Remove trailing whitespace + Ensure entities expand to utf8 sequences under 'utf8_mode' [RT#99755] + +David Steinbrunner (2): + typo fix + typo fixes + +Jacques Germishuys (1): + Silence clang warning + +bulk88 (1): + const+static-ing + + +_______________________________________________________________________________ 2013-05-09 Release 3.71 Gisle Aas (1): diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/META.json new/HTML-Parser-3.72/META.json --- old/HTML-Parser-3.71/META.json 2013-05-09 00:21:52.000000000 +0200 +++ new/HTML-Parser-3.72/META.json 2016-01-19 18:41:33.000000000 +0100 @@ -4,7 +4,7 @@ "Gisle Aas <gisle@activestate.com>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.133380", "license" : [ "perl_5" ], @@ -49,5 +49,5 @@ }, "x_MailingList" : "mailto:libwww@perl.org" }, - "version" : "3.71" + "version" : "3.72" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/META.yml new/HTML-Parser-3.72/META.yml --- old/HTML-Parser-3.71/META.yml 2013-05-09 00:21:52.000000000 +0200 +++ new/HTML-Parser-3.72/META.yml 2016-01-19 18:41:32.000000000 +0100 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.133380' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -25,6 +25,6 @@ XSLoader: 0 perl: 5.008 resources: + MailingList: mailto:libwww@perl.org repository: http://github.com/gisle/html-parser - x_MailingList: mailto:libwww@perl.org -version: 3.71 +version: 3.72 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/Parser.pm new/HTML-Parser-3.72/Parser.pm --- old/HTML-Parser-3.71/Parser.pm 2013-05-09 00:19:18.000000000 +0200 +++ new/HTML-Parser-3.72/Parser.pm 2016-01-19 18:37:26.000000000 +0100 @@ -1,15 +1,9 @@ package HTML::Parser; -# Copyright 1996-2009, Gisle Aas. -# Copyright 1999-2000, Michael A. Chase. -# -# This library is free software; you can redistribute it and/or -# modify it under the same terms as Perl itself. - use strict; use vars qw($VERSION @ISA); -$VERSION = "3.71"; +$VERSION = "3.72"; require HTML::Entities; @@ -373,7 +367,7 @@ sequence "/>" instead of ">". When recognized by C<HTML::Parser> they cause an artificial end event in addition to the start event. The C<text> for the artificial end event will be empty and the C<tokenpos> -array will be undefined even though the the token array will have one +array will be undefined even though the token array will have one element containing the tag name. =item $p->marked_sections @@ -1190,7 +1184,7 @@ for any entities that expand to characters with code above 127. This is not a good thing. -The recommened solution is to apply Encode::decode_utf8() on the data before +The recommended solution is to apply Encode::decode_utf8() on the data before feeding it to the $p->parse(). For $p->parse_file() pass a file that has been opened in ":utf8" mode. @@ -1231,7 +1225,7 @@ =head1 COPYRIGHT - Copyright 1996-2008 Gisle Aas. All rights reserved. + Copyright 1996-2016 Gisle Aas. All rights reserved. Copyright 1999-2000 Michael A. Chase. All rights reserved. This library is free software; you can redistribute it and/or diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/Parser.xs new/HTML-Parser-3.72/Parser.xs --- old/HTML-Parser-3.71/Parser.xs 2013-03-25 23:33:39.000000000 +0100 +++ new/HTML-Parser-3.72/Parser.xs 2016-01-19 16:18:18.000000000 +0100 @@ -1,5 +1,5 @@ -/* - * Copyright 1999-2009, Gisle Aas. +/* + * Copyright 1999-2016, Gisle Aas. * Copyright 1999-2000, Michael A. Chase. * * This library is free software; you can redistribute it and/or @@ -312,7 +312,7 @@ #endif -MGVTBL vtbl_pstate = +const MGVTBL vtbl_pstate = { 0, 0, @@ -362,7 +362,7 @@ #endif mg = mg_find(sv, '~'); assert(mg); - mg->mg_virtual = &vtbl_pstate; + mg->mg_virtual = (MGVTBL*)&vtbl_pstate; #if defined(USE_ITHREADS) && PATCHLEVEL >= 8 mg->mg_flags |= MGf_DUP; #endif @@ -480,7 +480,7 @@ case 12: attr = &pstate->xml_pic; break; case 13: attr = &pstate->backquote; break; default: - croak("Unknown boolean attribute (%d)", ix); + croak("Unknown boolean attribute (%d)", (int)ix); } RETVAL = boolSV(*attr); if (items > 1) @@ -517,7 +517,7 @@ case 2: attr = &pstate->ignore_tags; break; case 3: attr = &pstate->ignore_elements; break; default: - croak("Unknown tag-list attribute (%d)", ix); + croak("Unknown tag-list attribute (%d)", (int)ix); } if (GIMME_V != G_VOID) croak("Can't report tag lists yet"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/README new/HTML-Parser-3.72/README --- old/HTML-Parser-3.71/README 2013-03-25 23:32:22.000000000 +0100 +++ new/HTML-Parser-3.72/README 2016-01-19 16:16:41.000000000 +0100 @@ -58,7 +58,7 @@ COPYRIGHT - © 1995-2009 Gisle Aas. All rights reserved. + © 1995-2016 Gisle Aas. All rights reserved. © 1999-2000 Michael A. Chase. All rights reserved. This library is free software; you can redistribute it and/or modify diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/hparser.c new/HTML-Parser-3.72/hparser.c --- old/HTML-Parser-3.71/hparser.c 2013-03-25 23:32:23.000000000 +0100 +++ new/HTML-Parser-3.72/hparser.c 2016-01-19 16:18:55.000000000 +0100 @@ -1,5 +1,5 @@ -/* - * Copyright 1999-2009, Gisle Aas +/* + * Copyright 1999-2016, Gisle Aas * Copyright 1999-2000, Michael A. Chase * * This library is free software; you can redistribute it and/or @@ -14,7 +14,7 @@ #include "tokenpos.h" /* dTOKEN; PUSH_TOKEN() */ -static +const static struct literal_tag { int len; char* str; @@ -59,10 +59,10 @@ ARG_FLAG_FLAT_ARRAY }; -char *argname[] = { +static const char * const argname[] = { /* Must be in the same order as enum argcode */ "self", /* ARG_SELF */ - "tokens", /* ARG_TOKENS */ + "tokens", /* ARG_TOKENS */ "tokenpos", /* ARG_TOKENPOS */ "token0", /* ARG_TOKEN0 */ "tagname", /* ARG_TAGNAME */ @@ -215,7 +215,7 @@ if (event == E_NONE) goto IGNORE_EVENT; - + #ifdef MARKED_SECTION if (p_state->ms == MS_IGNORE) goto IGNORE_EVENT; @@ -335,7 +335,7 @@ argspec = h->argspec ? SvPV(h->argspec, my_na) : ""; if (SvTYPE(h->cb) == SVt_PVAV) { - + if (*argspec == ARG_FLAG_FLAT_ARRAY) { argspec++; array = (AV*)h->cb; @@ -464,8 +464,10 @@ SvUTF8_on(attrval); if (!p_state->attr_encoded) { #ifdef UNICODE_HTML_PARSER - if (p_state->utf8_mode) + if (p_state->utf8_mode) { sv_utf8_decode(attrval); + sv_utf8_upgrade(attrval); + } #endif decode_entities(aTHX_ attrval, p_state->entity2char, 0); if (p_state->utf8_mode) @@ -522,7 +524,7 @@ arg = sv_2mortal(newRV_noinc((SV*)av)); } break; - + case ARG_TEXT: arg = sv_2mortal(newSVpvn(beg, end - beg)); if (utf8) @@ -536,8 +538,10 @@ SvUTF8_on(arg); if (!p_state->is_cdata) { #ifdef UNICODE_HTML_PARSER - if (p_state->utf8_mode) + if (p_state->utf8_mode) { sv_utf8_decode(arg); + sv_utf8_upgrade(arg); + } #endif decode_entities(aTHX_ arg, p_state->entity2char, 1); if (p_state->utf8_mode) @@ -545,7 +549,7 @@ } } break; - + case ARG_IS_CDATA: if (event == E_TEXT) { arg = boolSV(p_state->is_cdata); @@ -595,7 +599,7 @@ case ARG_UNDEF: arg = sv_mortalcopy(&PL_sv_undef); break; - + default: arg = sv_2mortal(newSVpvf("Bad argspec %d", *s)); break; @@ -663,7 +667,7 @@ } #endif } -#undef CHR_DIST +#undef CHR_DIST return; } @@ -701,7 +705,7 @@ if (isHNAME_FIRST(*s) || *s == '@') { char *name = s; int a = ARG_SELF; - char **arg_name; + const char * const *arg_name; s++; while (isHNAME_CHAR(*s)) @@ -735,7 +739,7 @@ } } else { - croak("Unrecognized identifier %.*s in argspec", s - name, name); + croak("Unrecognized identifier %.*s in argspec", (int) (s - name), name); } } else if (*s == '"' || *s == '\'') { @@ -768,7 +772,7 @@ while (isHSPACE(*s)) s++; - + if (*s == '}' && SvPVX(argspec)[0] == ARG_FLAG_FLAT_ARRAY) { /* end of '@{ ... }' */ s++; @@ -812,7 +816,7 @@ p_state->column = p_state->pend_text_column; report_event(p_state, E_TEXT, - SvPVX(old_pend_text), SvEND(old_pend_text), + SvPVX(old_pend_text), SvEND(old_pend_text), SvUTF8(old_pend_text), 0, 0, self); SvOK_off(old_pend_text); @@ -945,7 +949,7 @@ goto LOCATE_END; } } - + if (s == end) return beg; } @@ -1058,11 +1062,11 @@ /* comment finished */ goto FIND_NAMES; } - } + } } else goto FAIL; - + } if (*s == '[') { s++; @@ -1084,7 +1088,7 @@ FAIL: SvREFCNT_dec(tokens); return 0; /* not yet implemented */ - + PREMATURE: SvREFCNT_dec(tokens); return beg; @@ -1424,7 +1428,7 @@ FREE_TOKENS; return s; } - + FREE_TOKENS; return 0; @@ -1512,9 +1516,9 @@ continue; token_pos.end = s - 2; } - + /* a complete processing instruction seen */ - report_event(p_state, E_PROCESS, beg, s, utf8, + report_event(p_state, E_PROCESS, beg, s, utf8, &token_pos, 1, self); return s; } @@ -1565,7 +1569,7 @@ end_text = s; s++; - + /* here we rely on '\0' termination of perl svpv buffers */ if (*s == '/') { s++; @@ -1640,7 +1644,7 @@ 0, 0, self); t = s; SvREFCNT_dec(av_pop(p_state->ms_stack)); - marked_section_update(p_state); + marked_section_update(p_state); continue; } } @@ -1794,7 +1798,7 @@ /* report rest as text */ report_event(p_state, E_TEXT, s, end, utf8, 0, 0, self); } - + SvREFCNT_dec(p_state->buf); p_state->buf = 0; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/hparser.h new/HTML-Parser-3.72/hparser.h --- old/HTML-Parser-3.71/hparser.h 2013-03-25 23:32:23.000000000 +0100 +++ new/HTML-Parser-3.72/hparser.h 2016-01-19 16:18:46.000000000 +0100 @@ -1,5 +1,5 @@ -/* - * Copyright 1999-2009, Gisle Aas +/* + * Copyright 1999-2016, Gisle Aas * Copyright 1999-2000, Michael A. Chase * * This library is free software; you can redistribute it and/or @@ -129,4 +129,3 @@ SV* tmp; }; typedef struct p_state PSTATE; - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/lib/HTML/Filter.pm new/HTML-Parser-3.72/lib/HTML/Filter.pm --- old/HTML-Parser-3.71/lib/HTML/Filter.pm 2013-03-25 23:32:23.000000000 +0100 +++ new/HTML-Parser-3.72/lib/HTML/Filter.pm 2016-01-19 18:38:44.000000000 +0100 @@ -6,7 +6,7 @@ require HTML::Parser; @ISA=qw(HTML::Parser); -$VERSION = "3.57"; +$VERSION = "3.72"; sub declaration { $_[0]->output("<!$_[1]>") } sub process { $_[0]->output($_[2]) } @@ -28,7 +28,7 @@ =head1 NOTE B<This module is deprecated.> The C<HTML::Parser> now provides the -functionally of C<HTML::Filter> much more efficiently with the the +functionally of C<HTML::Filter> much more efficiently with the C<default> handler. =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Parser-3.71/t/unicode.t new/HTML-Parser-3.72/t/unicode.t --- old/HTML-Parser-3.71/t/unicode.t 2013-03-25 23:32:23.000000000 +0100 +++ new/HTML-Parser-3.72/t/unicode.t 2016-01-19 16:13:30.000000000 +0100 @@ -7,7 +7,7 @@ plan skip_all => "This perl does not support Unicode" if $] < 5.008; } -plan tests => 105; +plan tests => 107; my @warn; $SIG{__WARN__} = sub { @@ -172,7 +172,7 @@ $p->parse(q(<a href="a=1&lang=2×=3">foo</a>))->eof; is(@parsed, "5"); is($parsed[1][0], "start"); -is($parsed[1][8]{href}, "a=1&lang=2\xd7=3"); +is($parsed[1][8]{href}, "a=1&lang=2\xC3\x97=3"); ok(!HTML::Entities::_probably_utf8_chunk("")); ok(!HTML::Entities::_probably_utf8_chunk("f")); @@ -196,3 +196,17 @@ ok(!@warn); is(@parsed, 9); + +@parsed = (); +$p = HTML::Parser->new( + api_version => 3, + utf8_mode => 1, + unbroken_text => 1, + default_h => [\@parsed, 'event,dtext'], +); + +$p->parse("<p>R\xC3\xA9ductions jusqu'à -70%.<p>Réductions jusqu'à -70%."); +$p->eof; + +is($parsed[2][1], "R\xC3\xA9ductions jusqu'\xC3\xA0 -70%."); +is($parsed[4][1], "R\xC3\xA9ductions jusqu'\xC3\xA0 -70%."); ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #description: |- # override description from CPAN #summary: override summary from CPAN #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_build: |- # rm unused.files #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module