![](https://seccdn.libravatar.org/avatar/e2145bc5cf53dda95c308a3c75e8fef3.jpg?s=120&d=mm&r=g)
Hello community, here is the log from the commit of package perl-XML-Parser-Lite for openSUSE:Factory checked in at 2018-08-31 09:52:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-XML-Parser-Lite (Old) and /work/SRC/openSUSE:Factory/.perl-XML-Parser-Lite.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-XML-Parser-Lite" Fri Aug 31 09:52:45 2018 rev:3 rq:631290 version:0.722 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-XML-Parser-Lite/perl-XML-Parser-Lite.changes 2015-06-11 08:22:21.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-XML-Parser-Lite.new/perl-XML-Parser-Lite.changes 2018-08-31 09:52:48.289737900 +0200 @@ -1,0 +2,14 @@ +Mon Aug 20 06:21:25 UTC 2018 - coolo@suse.com + +- updated to 0.722 + see /usr/share/doc/packages/perl-XML-Parser-Lite/Changes + + 0.722 2018-08-19 PHRED + - Remove unnecessary tests [github/paultcochrane for all] + - Fix link to dist repo + - Added continuous integration configurations + - Minor fixes and cosmetic changes to make code adhere better to current + Perl best practices + - Documentation fixes + +------------------------------------------------------------------- Old: ---- XML-Parser-Lite-0.721.tar.gz New: ---- XML-Parser-Lite-0.722.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-XML-Parser-Lite.spec ++++++ --- /var/tmp/diff_new_pack.nd9KvO/_old 2018-08-31 09:52:48.737739030 +0200 +++ /var/tmp/diff_new_pack.nd9KvO/_new 2018-08-31 09:52:48.737739030 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-XML-Parser-Lite # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 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,14 @@ Name: perl-XML-Parser-Lite -Version: 0.721 +Version: 0.722 Release: 0 %define cpan_name XML-Parser-Lite Summary: Lightweight pure-perl XML Parser (based on regexps) -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/XML-Parser-Lite/ -Source0: http://www.cpan.org/authors/id/P/PH/PHRED/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/P/PH/PHRED/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -35,11 +35,11 @@ %{perl_requires} %description -This module implements an XML parser with a interface similar to the -XML::Parser manpage. Though not all callbacks are supported, you should be -able to use it in the same way you use XML::Parser. Due to using -experimental regexp features it'll work only on Perl 5.6 and above and may -behave differently on different platforms. +This module implements an XML parser with a interface similar to +XML::Parser. Though not all callbacks are supported, you should be able to +use it in the same way you use XML::Parser. Due to using experimental +regexp features it'll work only on Perl 5.6 and above and may behave +differently on different platforms. Note that you cannot use regular expressions or split in callbacks. This is due to a limitation of perl's regular expression implementation (which is ++++++ XML-Parser-Lite-0.721.tar.gz -> XML-Parser-Lite-0.722.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/Changes new/XML-Parser-Lite-0.722/Changes --- old/XML-Parser-Lite-0.721/Changes 2015-05-26 10:06:47.000000000 +0200 +++ new/XML-Parser-Lite-0.722/Changes 2018-08-20 05:22:40.000000000 +0200 @@ -1,5 +1,13 @@ Revision history for Perl module XML::Parser::Lite +0.722 2018-08-19 PHRED + - Remove unnecessary tests [github/paultcochrane for all] + - Fix link to dist repo + - Added continuous integration configurations + - Minor fixes and cosmetic changes to make code adhere better to current + Perl best practices + - Documentation fixes + 0.721 2015-05-26 PHRED - Developer release (with PHRED's permission) to test changes - Refactored t/37-mod_xmlrpc.t to make the modules it uses optional, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/MANIFEST new/XML-Parser-Lite-0.722/MANIFEST --- old/XML-Parser-Lite-0.721/MANIFEST 2015-05-26 10:06:55.000000000 +0200 +++ new/XML-Parser-Lite-0.722/MANIFEST 2018-08-20 05:23:52.000000000 +0200 @@ -1,12 +1,10 @@ Changes +lib/XML/Parser/Lite.pm Makefile.PL -MANIFEST +MANIFEST This list of files +MANIFEST.SKIP README -lib/XML/Parser/Lite.pm -t/07-xmlrpc_payload.t -t/26-xmlrpc.t t/27-xmlparserlite.t -t/37-mod_xmlrpc.t t/adam.xml t/Lite.t META.yml Module YAML meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/MANIFEST.SKIP new/XML-Parser-Lite-0.722/MANIFEST.SKIP --- old/XML-Parser-Lite-0.721/MANIFEST.SKIP 1970-01-01 01:00:00.000000000 +0100 +++ new/XML-Parser-Lite-0.722/MANIFEST.SKIP 2018-08-20 05:21:29.000000000 +0200 @@ -0,0 +1,14 @@ +.appveyor.yml +.git/ +.gitignore +.travis.yml +^blib/ +^cover_db/ +^Makefile$ +MYMETA.* +^pm_to_blib +.*~ +.*\.bak +.*\.lock +.*\.old +.*\.swp diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/META.json new/XML-Parser-Lite-0.722/META.json --- old/XML-Parser-Lite-0.721/META.json 2015-05-26 10:06:55.000000000 +0200 +++ new/XML-Parser-Lite-0.722/META.json 2018-08-20 05:23:52.000000000 +0200 @@ -4,13 +4,13 @@ "Byrne Reese (byrne@majordojo.com)" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640", + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "XML-Parser-Lite", "no_index" : { @@ -47,5 +47,6 @@ "url" : "https://github.com/redhotpenguin/perl-XML-Parser-Lite" } }, - "version" : "0.721" + "version" : "0.722", + "x_serialization_backend" : "JSON::PP version 2.97001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/META.yml new/XML-Parser-Lite-0.722/META.yml --- old/XML-Parser-Lite-0.721/META.yml 2015-05-26 10:06:55.000000000 +0200 +++ new/XML-Parser-Lite-0.722/META.yml 2018-08-20 05:23:51.000000000 +0200 @@ -10,7 +10,7 @@ configure_requires: ExtUtils::MakeMaker: '6.3' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640' +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -26,4 +26,5 @@ warnings: '0' resources: repository: https://github.com/redhotpenguin/perl-XML-Parser-Lite -version: '0.721' +version: '0.722' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/README new/XML-Parser-Lite-0.722/README --- old/XML-Parser-Lite-0.721/README 2015-05-26 10:04:59.000000000 +0200 +++ new/XML-Parser-Lite-0.722/README 2018-08-20 05:21:29.000000000 +0200 @@ -111,7 +111,9 @@ COPYRIGHT Copyright (C) 2000-2007 Paul Kulchenko. All rights reserved. - Copyright (C) 2008- Martin Kutter. All rights reserved. + Copyright (C) 2008 Martin Kutter. All rights reserved. + + Copyright (C) 2013-2015 Fred Moyer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -120,10 +122,19 @@ http://www.cs.sfu.ca/~cameron/REX.html Copyright (c) 1998, Robert D. Cameron. -AUTHOR +AUTHORS Paul Kulchenko (paulclinger@yahoo.com) Martin Kutter (martin.kutter@fen-net.de) + Fred Moyer (fred@redhotpenguin.com) + Additional handlers supplied by Adam Leggett. +CONTRIBUTORS + + David Steinbrunner (dsteinbrunner@pobox.com) + + Neil Bowers (neil@bowers.com) + + Paul Cochrane (paul@liekut.de) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/lib/XML/Parser/Lite.pm new/XML-Parser-Lite-0.722/lib/XML/Parser/Lite.pm --- old/XML-Parser-Lite-0.721/lib/XML/Parser/Lite.pm 2015-05-26 10:04:59.000000000 +0200 +++ new/XML-Parser-Lite-0.722/lib/XML/Parser/Lite.pm 2018-08-20 05:22:54.000000000 +0200 @@ -13,7 +13,7 @@ use strict; use warnings; -our $VERSION = '0.721'; +our $VERSION = '0.722'; sub new { my $class = shift; @@ -32,7 +32,7 @@ my $self = shift; # allow symbolic refs, avoid "subroutine redefined" warnings - no strict 'refs'; + no strict 'refs'; ## no critic no warnings qw(redefine); # clear all handlers if called without parameters if (not @_) { @@ -64,8 +64,8 @@ # this copyright and citation notice remains intact and that modifications # or additions are clearly identified. - # Modifications may be tracked on SOAP::Lite's SVN at - # https://soaplite.svn.sourceforge.net/svnroot/soaplite/ + # Modifications may be tracked on XML::Parser::Lite's source code repository at + # https://github.com/redhotpenguin/perl-XML-Parser-Lite # use re 'eval'; my $TextSE = "[^<]+"; @@ -128,7 +128,7 @@ sub _parse_re { use re "eval"; undef $^R; - no strict 'refs'; + no strict 'refs'; ## no critic 1 while $_[0] =~ m{$REGEXP}go }; @@ -358,7 +358,9 @@ Copyright (C) 2000-2007 Paul Kulchenko. All rights reserved. -Copyright (C) 2008- Martin Kutter. All rights reserved. +Copyright (C) 2008 Martin Kutter. All rights reserved. + +Copyright (C) 2013-2015 Fred Moyer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -367,16 +369,22 @@ Lhttp://www.cs.sfu.ca/~cameron/REX.html Copyright (c) 1998, Robert D. Cameron. -=head1 AUTHOR +=head1 AUTHORS Paul Kulchenko (paulclinger@yahoo.com) Martin Kutter (martin.kutter@fen-net.de) +Fred Moyer (fred@redhotpenguin.com) + Additional handlers supplied by Adam Leggett. -=cut +=head1 CONTRIBUTORS +David Steinbrunner (dsteinbrunner@pobox.com) +Neil Bowers (neil@bowers.com) +Paul Cochrane (paul@liekut.de) +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/t/07-xmlrpc_payload.t new/XML-Parser-Lite-0.722/t/07-xmlrpc_payload.t --- old/XML-Parser-Lite-0.721/t/07-xmlrpc_payload.t 2015-05-26 10:04:59.000000000 +0200 +++ new/XML-Parser-Lite-0.722/t/07-xmlrpc_payload.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,58 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More; - -BEGIN { plan tests => 8 } - -eval { require XMLRPC::Lite }; - -SKIP: { - skip 'need XMLRPC::Lite', 8 if $@; - - my ( $a, $s, $r, $serialized, $deserialized ); - - print "XML-RPC deserialization test(s)...\n"; - - $deserialized = XMLRPC::Deserializer->deserialize( - '<?xml version="1.0" encoding="ISO-8859-1"?> -<methodCall><methodName>SOAP.Lite.Bug.Report</methodName><params> -<param><value><struct><member><name>This</name><value>Works</value></member></struct></value></param> -</params></methodCall> - ' - )->root; - - ok( $deserialized->{params}->[0]->{This} eq 'Works' ); - - $serialized = XMLRPC::Serializer->serialize( - { param1 => 'value1', param2 => undef, param3 => 0 } ); - - ok( $serialized =~ m!<member><name>param2</name><value /></member>! ); - ok( $serialized =~ - m!<member><name>param3</name><value><int>0</int></value></member>! ); - - $deserialized = XMLRPC::Deserializer->deserialize($serialized)->root; - - ok( $deserialized->{param2} eq '' ); - ok( $deserialized->{param3} == 0 ); - - $serialized = - XMLRPC::Serializer->method( - a => { param1 => 'value1', param2 => undef, param3 => 'value3' } ); - - ok( $serialized =~ -m!<methodCall><methodName>a</methodName><params><param><value><struct>(<member><name>param1</name><value><string>value1</string></value></member>|<member><name>param2</name><value /></member>|<member><name>param3</name><value><string>value3</string></value></member>){3}</struct></value></param></params></methodCall>! - ); - - $serialized = XMLRPC::Serializer->method( a => { param1 => 'value1' } ); - - ok( $serialized eq -'<?xml version="1.0" encoding="UTF-8"?><methodCall><methodName>a</methodName><params><param><value><struct><member><name>param1</name><value><string>value1</string></value></member></struct></value></param></params></methodCall>' - ); - - eval { XMLRPC::Serializer->serialize( XMLRPC::Data->type( base63 => 1 ) ) }; - - ok( $@ =~ /unsupported datatype/ ); -} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/t/26-xmlrpc.t new/XML-Parser-Lite-0.722/t/26-xmlrpc.t --- old/XML-Parser-Lite-0.721/t/26-xmlrpc.t 2015-05-26 10:04:59.000000000 +0200 +++ new/XML-Parser-Lite-0.722/t/26-xmlrpc.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,88 +0,0 @@ -#!/bin/perl - -use strict; -use warnings; - -use Test::More; - -BEGIN { plan tests => 6 } - -eval { require XMLRPC::Lite; require SOAP::Test; }; - -SKIP: { - skip 'need XMLRPC::Lite and SOAP::Test', 6 if $@; - - my ( $a, $s, $r ); - - my $proxy = 'http://betty.userland.com/RPC2'; - - # ------------------------------------------------------ - - $s = XMLRPC::Lite->proxy($proxy)->on_fault( sub { } ); - eval { - $s->transport->timeout( $SOAP::Test::TIMEOUT = $SOAP::Test::TIMEOUT ); - }; - $r = $s->test_connection; - - unless ( defined $r && defined $r->envelope ) { - skip 'need XMLRPC::Lite', 6 if $@; - print "1..0 # Skip: ", $s->transport->status, "\n"; - exit; - } - - # ------------------------------------------------------ - - ok( - ( - XMLRPC::Lite->proxy($proxy) - ->call( 'examples.getStateStruct', - { state1 => 12, state2 => 28 } )->result - or '' - ) eq 'Idaho,Nevada' - ); - - ok( - ( - XMLRPC::Lite->proxy($proxy)->call( 'examples.getStateName', 21 ) - ->result - or '' - ) eq 'Massachusetts' - ); - - ok( - ( - XMLRPC::Lite->proxy($proxy) - ->call( 'examples.getStateNames', 21, 22, 23, 24 )->result - or '' - ) =~ /Massachusetts\s+Michigan\s+Minnesota\s+Mississippi/ - ); - - $s = - XMLRPC::Lite->proxy($proxy)->call( 'examples.getStateList', [ 21, 22 ] ); - ok( ( $s->result or '' ) eq 'Massachusetts,Michigan' ); - ok( !defined $s->fault ); - ok( !defined $s->faultcode ); - - print "XMLRPC autodispatch and fault check test(s)...\n"; - - eval "use XMLRPC::Lite +autodispatch => - proxy => '$proxy', - ; 1" or die; - - $r = XMLRPC->getStateName(21); - - # Looks like this test requires saving away the result of the - # last call - which introduces a memory leak (removed in 0.70_01) - # Looks like we'll have to introduce different Fault handling... - # - # - print "#TODO: fix fault handling ...\n"; - last; - $r = XMLRPC::Lite->self->call; - - ok( ref $r->fault eq 'HASH' ); - ok( $r->fault->{faultString} =~ /Can't evaluate/ ); - ok( $r->faultstring =~ /Can't evaluate/ ); - ok( $r->faultcode == 7 ); - -} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/t/27-xmlparserlite.t new/XML-Parser-Lite-0.722/t/27-xmlparserlite.t --- old/XML-Parser-Lite-0.721/t/27-xmlparserlite.t 2013-05-16 10:24:03.000000000 +0200 +++ new/XML-Parser-Lite-0.722/t/27-xmlparserlite.t 2018-08-20 05:21:29.000000000 +0200 @@ -1,4 +1,8 @@ -#!/bin/env perl +#!/bin/env perl + +use strict; +use diagnostics; +use Test; BEGIN { unless(grep /blib/, @INC) { @@ -7,12 +11,8 @@ } } -use strict; -use diagnostics; -use Test; - unless (eval { require XML::Parser::Lite }) { - print "1..0 # Skip: ", $@, "\n"; + print "1..0 # Skip: ", $@, "\n"; exit; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/t/37-mod_xmlrpc.t new/XML-Parser-Lite-0.722/t/37-mod_xmlrpc.t --- old/XML-Parser-Lite-0.721/t/37-mod_xmlrpc.t 2015-05-26 10:04:59.000000000 +0200 +++ new/XML-Parser-Lite-0.722/t/37-mod_xmlrpc.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,14 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More; - -use Test::Requires { - 'XMLRPC::Lite' => 0.717, - 'XMLRPC::Test' => 0.717, -}; - -XMLRPC::Test::Server::run_for( shift || 'http://localhost/mod_xmlrpc' ); - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-Parser-Lite-0.721/t/Lite.t new/XML-Parser-Lite-0.722/t/Lite.t --- old/XML-Parser-Lite-0.721/t/Lite.t 2013-05-18 07:16:41.000000000 +0200 +++ new/XML-Parser-Lite-0.722/t/Lite.t 2018-08-20 05:21:29.000000000 +0200 @@ -50,7 +50,7 @@ SKIP: { skip 'need File::Basename for resolveing filename', 1 - if ( ! eval "require File::Basename"); + if ( ! eval { require File::Basename } ); my $dir = File::Basename::dirname( __FILE__ ); $parser = XML::Parser::Lite->new(); open my $fh, '<', "$dir/adam.xml";