Hello community, here is the log from the commit of package perl-XML-XPath for openSUSE:Factory checked in at 2016-07-01 09:56:02 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-XML-XPath (Old) and /work/SRC/openSUSE:Factory/.perl-XML-XPath.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-XML-XPath" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-XML-XPath/perl-XML-XPath.changes 2016-05-13 09:23:21.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-XML-XPath.new/perl-XML-XPath.changes 2016-07-01 09:56:03.000000000 +0200 @@ -1,0 +2,9 @@ +Sun Jun 12 14:02:45 UTC 2016 - coolo@suse.com + +- updated to 1.37 + see /usr/share/doc/packages/perl-XML-XPath/Changes + + 1.37 2016-06-02 MANWAR + - Fixed annoying warnings. + +------------------------------------------------------------------- Old: ---- XML-XPath-1.36.tar.gz New: ---- XML-XPath-1.37.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-XML-XPath.spec ++++++ --- /var/tmp/diff_new_pack.fPyEDS/_old 2016-07-01 09:56:04.000000000 +0200 +++ /var/tmp/diff_new_pack.fPyEDS/_new 2016-07-01 09:56:04.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-XML-XPath -Version: 1.36 +Version: 1.37 Release: 0 %define cpan_name XML-XPath Summary: Parse and evaluate XPath statements ++++++ XML-XPath-1.36.tar.gz -> XML-XPath-1.37.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/Changes new/XML-XPath-1.37/Changes --- old/XML-XPath-1.36/Changes 2016-04-13 15:29:56.000000000 +0200 +++ new/XML-XPath-1.37/Changes 2016-06-02 11:38:39.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for XML::XPath +1.37 2016-06-02 MANWAR + - Fixed annoying warnings. + 1.36 2016-04-14 MANWAR - Fixed issue RT #68932 (/usr/bin/xpath outputs unwanted text when quiet mode ist set). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/META.json new/XML-XPath-1.37/META.json --- old/XML-XPath-1.36/META.json 2016-04-14 11:52:52.000000000 +0200 +++ new/XML-XPath-1.37/META.json 2016-06-02 11:39:11.000000000 +0200 @@ -4,7 +4,7 @@ "Matt Sergeant, AxKit.com Ltd" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version 2.150005", + "generated_by" : "ExtUtils::MakeMaker version 7.16, CPAN::Meta::Converter version 2.150005", "license" : [ "artistic_2" ], @@ -41,91 +41,91 @@ "provides" : { "XML::XPath" : { "file" : "lib/XML/XPath.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Boolean" : { "file" : "lib/XML/XPath/Boolean.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Builder" : { "file" : "lib/XML/XPath/Builder.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Expr" : { "file" : "lib/XML/XPath/Expr.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Function" : { "file" : "lib/XML/XPath/Function.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Literal" : { "file" : "lib/XML/XPath/Literal.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::LocationPath" : { "file" : "lib/XML/XPath/LocationPath.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node" : { "file" : "lib/XML/XPath/Node.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node::Attribute" : { "file" : "lib/XML/XPath/Node/Attribute.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node::Comment" : { "file" : "lib/XML/XPath/Node/Comment.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node::Element" : { "file" : "lib/XML/XPath/Node/Element.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node::Namespace" : { "file" : "lib/XML/XPath/Node/Namespace.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node::PI" : { "file" : "lib/XML/XPath/Node/PI.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Node::Text" : { "file" : "lib/XML/XPath/Node/Text.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::NodeSet" : { "file" : "lib/XML/XPath/NodeSet.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Number" : { "file" : "lib/XML/XPath/Number.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Parser" : { "file" : "lib/XML/XPath/Parser.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::PerlSAX" : { "file" : "lib/XML/XPath/PerlSAX.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Root" : { "file" : "lib/XML/XPath/Root.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Step" : { "file" : "lib/XML/XPath/Step.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::Variable" : { "file" : "lib/XML/XPath/Variable.pm", - "version" : "1.36" + "version" : "1.37" }, "XML::XPath::XMLParser" : { "file" : "lib/XML/XPath/XMLParser.pm", - "version" : "1.36" + "version" : "1.37" } }, "release_status" : "stable", @@ -136,6 +136,6 @@ "web" : "https://github.com/manwar/XML-XPath" } }, - "version" : "1.36", + "version" : "1.37", "x_serialization_backend" : "JSON::PP version 2.27300" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/META.yml new/XML-XPath-1.37/META.yml --- old/XML-XPath-1.36/META.yml 2016-04-14 11:52:52.000000000 +0200 +++ new/XML-XPath-1.37/META.yml 2016-06-02 11:39:11.000000000 +0200 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version 2.150005' +generated_by: 'ExtUtils::MakeMaker version 7.16, CPAN::Meta::Converter version 2.150005' license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -21,74 +21,74 @@ provides: XML::XPath: file: lib/XML/XPath.pm - version: '1.36' + version: '1.37' XML::XPath::Boolean: file: lib/XML/XPath/Boolean.pm - version: '1.36' + version: '1.37' XML::XPath::Builder: file: lib/XML/XPath/Builder.pm - version: '1.36' + version: '1.37' XML::XPath::Expr: file: lib/XML/XPath/Expr.pm - version: '1.36' + version: '1.37' XML::XPath::Function: file: lib/XML/XPath/Function.pm - version: '1.36' + version: '1.37' XML::XPath::Literal: file: lib/XML/XPath/Literal.pm - version: '1.36' + version: '1.37' XML::XPath::LocationPath: file: lib/XML/XPath/LocationPath.pm - version: '1.36' + version: '1.37' XML::XPath::Node: file: lib/XML/XPath/Node.pm - version: '1.36' + version: '1.37' XML::XPath::Node::Attribute: file: lib/XML/XPath/Node/Attribute.pm - version: '1.36' + version: '1.37' XML::XPath::Node::Comment: file: lib/XML/XPath/Node/Comment.pm - version: '1.36' + version: '1.37' XML::XPath::Node::Element: file: lib/XML/XPath/Node/Element.pm - version: '1.36' + version: '1.37' XML::XPath::Node::Namespace: file: lib/XML/XPath/Node/Namespace.pm - version: '1.36' + version: '1.37' XML::XPath::Node::PI: file: lib/XML/XPath/Node/PI.pm - version: '1.36' + version: '1.37' XML::XPath::Node::Text: file: lib/XML/XPath/Node/Text.pm - version: '1.36' + version: '1.37' XML::XPath::NodeSet: file: lib/XML/XPath/NodeSet.pm - version: '1.36' + version: '1.37' XML::XPath::Number: file: lib/XML/XPath/Number.pm - version: '1.36' + version: '1.37' XML::XPath::Parser: file: lib/XML/XPath/Parser.pm - version: '1.36' + version: '1.37' XML::XPath::PerlSAX: file: lib/XML/XPath/PerlSAX.pm - version: '1.36' + version: '1.37' XML::XPath::Root: file: lib/XML/XPath/Root.pm - version: '1.36' + version: '1.37' XML::XPath::Step: file: lib/XML/XPath/Step.pm - version: '1.36' + version: '1.37' XML::XPath::Variable: file: lib/XML/XPath/Variable.pm - version: '1.36' + version: '1.37' XML::XPath::XMLParser: file: lib/XML/XPath/XMLParser.pm - version: '1.36' + version: '1.37' requires: XML::Parser: '2.23' perl: '5.006' resources: repository: https://github.com/manwar/XML-XPath.git -version: '1.36' +version: '1.37' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/Makefile.PL new/XML-XPath-1.37/Makefile.PL --- old/XML-XPath-1.36/Makefile.PL 2016-04-13 15:28:06.000000000 +0200 +++ new/XML-XPath-1.37/Makefile.PL 2016-06-02 11:29:03.000000000 +0200 @@ -27,28 +27,28 @@ (eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (META_MERGE => { 'meta-spec' => { version => 2 }, provides => { - 'XML::XPath' => { file => 'lib/XML/XPath.pm', version => '1.36' }, - 'XML::XPath::XMLParser' => { file => 'lib/XML/XPath/XMLParser.pm', version => '1.36' }, - 'XML::XPath::Parser' => { file => 'lib/XML/XPath/Parser.pm', version => '1.36' }, - 'XML::XPath::Expr' => { file => 'lib/XML/XPath/Expr.pm', version => '1.36' }, - 'XML::XPath::Function' => { file => 'lib/XML/XPath/Function.pm', version => '1.36' }, - 'XML::XPath::Literal' => { file => 'lib/XML/XPath/Literal.pm', version => '1.36' }, - 'XML::XPath::LocationPath' => { file => 'lib/XML/XPath/LocationPath.pm', version => '1.36' }, - 'XML::XPath::Number' => { file => 'lib/XML/XPath/Number.pm', version => '1.36' }, - 'XML::XPath::Node' => { file => 'lib/XML/XPath/Node.pm', version => '1.36' }, - 'XML::XPath::Node::Element' => { file => 'lib/XML/XPath/Node/Element.pm', version => '1.36' }, - 'XML::XPath::Node::Attribute' => { file => 'lib/XML/XPath/Node/Attribute.pm', version => '1.36' }, - 'XML::XPath::Node::Text' => { file => 'lib/XML/XPath/Node/Text.pm', version => '1.36' }, - 'XML::XPath::Node::Namespace' => { file => 'lib/XML/XPath/Node/Namespace.pm', version => '1.36' }, - 'XML::XPath::Node::PI' => { file => 'lib/XML/XPath/Node/PI.pm', version => '1.36' }, - 'XML::XPath::Node::Comment' => { file => 'lib/XML/XPath/Node/Comment.pm', version => '1.36' }, - 'XML::XPath::Step' => { file => 'lib/XML/XPath/Step.pm', version => '1.36' }, - 'XML::XPath::Variable' => { file => 'lib/XML/XPath/Variable.pm', version => '1.36' }, - 'XML::XPath::NodeSet' => { file => 'lib/XML/XPath/NodeSet.pm', version => '1.36' }, - 'XML::XPath::Boolean' => { file => 'lib/XML/XPath/Boolean.pm', version => '1.36' }, - 'XML::XPath::Root' => { file => 'lib/XML/XPath/Root.pm', version => '1.36' }, - 'XML::XPath::PerlSAX' => { file => 'lib/XML/XPath/PerlSAX.pm', version => '1.36' }, - 'XML::XPath::Builder' => { file => 'lib/XML/XPath/Builder.pm', version => '1.36' }, + 'XML::XPath' => { file => 'lib/XML/XPath.pm', version => '1.37' }, + 'XML::XPath::XMLParser' => { file => 'lib/XML/XPath/XMLParser.pm', version => '1.37' }, + 'XML::XPath::Parser' => { file => 'lib/XML/XPath/Parser.pm', version => '1.37' }, + 'XML::XPath::Expr' => { file => 'lib/XML/XPath/Expr.pm', version => '1.37' }, + 'XML::XPath::Function' => { file => 'lib/XML/XPath/Function.pm', version => '1.37' }, + 'XML::XPath::Literal' => { file => 'lib/XML/XPath/Literal.pm', version => '1.37' }, + 'XML::XPath::LocationPath' => { file => 'lib/XML/XPath/LocationPath.pm', version => '1.37' }, + 'XML::XPath::Number' => { file => 'lib/XML/XPath/Number.pm', version => '1.37' }, + 'XML::XPath::Node' => { file => 'lib/XML/XPath/Node.pm', version => '1.37' }, + 'XML::XPath::Node::Element' => { file => 'lib/XML/XPath/Node/Element.pm', version => '1.37' }, + 'XML::XPath::Node::Attribute' => { file => 'lib/XML/XPath/Node/Attribute.pm', version => '1.37' }, + 'XML::XPath::Node::Text' => { file => 'lib/XML/XPath/Node/Text.pm', version => '1.37' }, + 'XML::XPath::Node::Namespace' => { file => 'lib/XML/XPath/Node/Namespace.pm', version => '1.37' }, + 'XML::XPath::Node::PI' => { file => 'lib/XML/XPath/Node/PI.pm', version => '1.37' }, + 'XML::XPath::Node::Comment' => { file => 'lib/XML/XPath/Node/Comment.pm', version => '1.37' }, + 'XML::XPath::Step' => { file => 'lib/XML/XPath/Step.pm', version => '1.37' }, + 'XML::XPath::Variable' => { file => 'lib/XML/XPath/Variable.pm', version => '1.37' }, + 'XML::XPath::NodeSet' => { file => 'lib/XML/XPath/NodeSet.pm', version => '1.37' }, + 'XML::XPath::Boolean' => { file => 'lib/XML/XPath/Boolean.pm', version => '1.37' }, + 'XML::XPath::Root' => { file => 'lib/XML/XPath/Root.pm', version => '1.37' }, + 'XML::XPath::PerlSAX' => { file => 'lib/XML/XPath/PerlSAX.pm', version => '1.37' }, + 'XML::XPath::Builder' => { file => 'lib/XML/XPath/Builder.pm', version => '1.37' }, }, resources => { repository => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Boolean.pm new/XML-XPath-1.37/lib/XML/XPath/Boolean.pm --- old/XML-XPath-1.36/lib/XML/XPath/Boolean.pm 2016-04-13 15:23:16.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Boolean.pm 2016-06-02 11:29:33.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Boolean; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Number; use XML::XPath::Literal; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Builder.pm new/XML-XPath-1.37/lib/XML/XPath/Builder.pm --- old/XML-XPath-1.36/lib/XML/XPath/Builder.pm 2016-04-13 15:23:24.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Builder.pm 2016-06-02 11:29:45.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Builder; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Expr.pm new/XML-XPath-1.37/lib/XML/XPath/Expr.pm --- old/XML-XPath-1.36/lib/XML/XPath/Expr.pm 2016-04-13 15:23:33.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Expr.pm 2016-06-02 11:29:55.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Expr; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; @@ -13,7 +13,8 @@ sub as_string { my $self = shift; local $^W; # Use of uninitialized value! grrr - my $string = "(" . $self->{lhs}->as_string; + my $string = "(" ; + $string .= $self->{lhs}->as_string||'' if defined $self->{lhs}; $string .= " " . $self->{op} . " " if defined $self->{op}; $string .= $self->{rhs}->as_string if defined $self->{rhs}; $string .= ")"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Function.pm new/XML-XPath-1.37/lib/XML/XPath/Function.pm --- old/XML-XPath-1.36/lib/XML/XPath/Function.pm 2016-04-13 15:23:42.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Function.pm 2016-06-02 11:37:13.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Function; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Number; use XML::XPath::Literal; @@ -215,7 +215,8 @@ my ($node, @params) = @_; die "starts-with: incorrect number of params\n" unless @params == 2; my $value = $params[1]->string_value; - if ($params[0]->string_value =~ /(.*?)\Q$value\E(.*)/) { + + if (defined $value && ($params[0]->string_value =~ /(.*?)\Q$value\E(.*)/)) { # Store the values of contains1, contains2 for use in the # substring functions below $self->{contains1} = $1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Literal.pm new/XML-XPath-1.37/lib/XML/XPath/Literal.pm --- old/XML-XPath-1.36/lib/XML/XPath/Literal.pm 2016-04-13 15:23:51.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Literal.pm 2016-06-02 11:30:13.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Literal; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Boolean; use XML::XPath::Number; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/LocationPath.pm new/XML-XPath-1.37/lib/XML/XPath/LocationPath.pm --- old/XML-XPath-1.36/lib/XML/XPath/LocationPath.pm 2016-04-13 15:24:00.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/LocationPath.pm 2016-06-02 11:30:23.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::LocationPath; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Root; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node/Attribute.pm new/XML-XPath-1.37/lib/XML/XPath/Node/Attribute.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node/Attribute.pm 2016-04-13 15:24:17.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node/Attribute.pm 2016-06-02 11:30:50.000000000 +0200 @@ -4,7 +4,7 @@ use vars qw/@ISA $VERSION/; @ISA = ('XML::XPath::Node'); -$VERSION = '1.36'; +$VERSION = '1.37'; package XML::XPath::Node::AttributeImpl; @@ -12,7 +12,7 @@ @ISA = ('XML::XPath::NodeImpl', 'XML::XPath::Node::Attribute'); use XML::XPath::Node ':node_keys'; -$VERSION = '1.36'; +$VERSION = '1.37'; sub new { my $class = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node/Comment.pm new/XML-XPath-1.37/lib/XML/XPath/Node/Comment.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node/Comment.pm 2016-04-13 15:24:30.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node/Comment.pm 2016-06-02 11:31:02.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Node::Comment; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw/@ISA/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node/Element.pm new/XML-XPath-1.37/lib/XML/XPath/Node/Element.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node/Element.pm 2016-04-13 15:24:38.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node/Element.pm 2016-06-02 11:31:13.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Node::Element; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw/@ISA/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node/Namespace.pm new/XML-XPath-1.37/lib/XML/XPath/Node/Namespace.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node/Namespace.pm 2016-04-13 15:24:47.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node/Namespace.pm 2016-06-02 11:32:33.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Node::Namespace; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw/@ISA/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node/PI.pm new/XML-XPath-1.37/lib/XML/XPath/Node/PI.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node/PI.pm 2016-04-13 15:24:57.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node/PI.pm 2016-06-02 11:33:22.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Node::PI; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw/@ISA/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node/Text.pm new/XML-XPath-1.37/lib/XML/XPath/Node/Text.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node/Text.pm 2016-04-13 15:25:05.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node/Text.pm 2016-06-02 11:33:31.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Node::Text; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw/@ISA/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Node.pm new/XML-XPath-1.37/lib/XML/XPath/Node.pm --- old/XML-XPath-1.36/lib/XML/XPath/Node.pm 2016-04-13 15:25:14.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Node.pm 2016-06-02 11:30:34.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Node; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw(@ISA @EXPORT $AUTOLOAD %EXPORT_TAGS @EXPORT_OK); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/NodeSet.pm new/XML-XPath-1.37/lib/XML/XPath/NodeSet.pm --- old/XML-XPath-1.36/lib/XML/XPath/NodeSet.pm 2016-04-13 15:25:22.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/NodeSet.pm 2016-06-02 11:34:21.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::NodeSet; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Number.pm new/XML-XPath-1.37/lib/XML/XPath/Number.pm --- old/XML-XPath-1.36/lib/XML/XPath/Number.pm 2016-04-13 15:25:30.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Number.pm 2016-06-02 11:34:32.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Number; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Boolean; use XML::XPath::Literal; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Parser.pm new/XML-XPath-1.37/lib/XML/XPath/Parser.pm --- old/XML-XPath-1.36/lib/XML/XPath/Parser.pm 2016-04-13 15:25:39.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Parser.pm 2016-06-02 11:34:42.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Parser; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use vars qw/ @@ -176,15 +176,19 @@ } - if (pos($path) < length($path)) { - my $marker = ("." x (pos($path)-1)); - $path = substr($path, 0, pos($path) + 8) . "..."; + my $path_pos = pos($path); + my $path_length = length($path); + if (defined $path_pos + && defined $path_length + && ($path_pos < $path_length)) { + my $marker = ("." x ($path_pos-1)); + $path = substr($path, 0, $path_pos + 8) . "..."; $path =~ s/\n/ /g; $path =~ s/\t/ /g; die "Query:\n", - "$path\n", - $marker, "^^^\n", - "Invalid query somewhere around here (I think)\n"; + "$path\n", + $marker, "^^^\n", + "Invalid query somewhere around here (I think)\n"; } return \@tokens; @@ -404,7 +408,7 @@ my $test = $tokens->[$self->{_tokpos}]; # Test for AbsoluteLocationPath and AbbreviatedRelativeLocationPath - if ($test =~ /^(\/\/?|\.\.?)$/) { + if (defined $test && ($test =~ /^(\/\/?|\.\.?)$/)) { # LocationPath $expr->set_lhs(LocationPath($self, $tokens)); } @@ -489,7 +493,7 @@ match($self, $tokens, '\\)', 1); } else { - croak("Not a PrimaryExpr at " . $tokens->[$self->{_tokpos}]); + croak("Not a PrimaryExpr at " . ($tokens->[$self->{_tokpos}] ||'')); } return $expr; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/PerlSAX.pm new/XML-XPath-1.37/lib/XML/XPath/PerlSAX.pm --- old/XML-XPath-1.36/lib/XML/XPath/PerlSAX.pm 2016-04-13 15:25:47.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/PerlSAX.pm 2016-06-02 11:34:53.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::PerlSAX; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Node qw(:node_keys); use XML::XPath::XMLParser; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Root.pm new/XML-XPath-1.37/lib/XML/XPath/Root.pm --- old/XML-XPath-1.36/lib/XML/XPath/Root.pm 2016-04-13 15:25:57.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Root.pm 2016-06-02 11:35:05.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Root; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; use XML::XPath::XMLParser; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Step.pm new/XML-XPath-1.37/lib/XML/XPath/Step.pm --- old/XML-XPath-1.36/lib/XML/XPath/Step.pm 2016-04-13 15:26:05.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Step.pm 2016-06-02 11:35:14.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Step; -$VERSION = '1.36'; +$VERSION = '1.37'; use XML::XPath::Parser; use XML::XPath::Node; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/Variable.pm new/XML-XPath-1.37/lib/XML/XPath/Variable.pm --- old/XML-XPath-1.36/lib/XML/XPath/Variable.pm 2016-04-13 15:26:15.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/Variable.pm 2016-06-02 11:35:23.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::Variable; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath/XMLParser.pm new/XML-XPath-1.37/lib/XML/XPath/XMLParser.pm --- old/XML-XPath-1.36/lib/XML/XPath/XMLParser.pm 2016-04-13 15:26:23.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath/XMLParser.pm 2016-06-02 11:35:31.000000000 +0200 @@ -1,6 +1,6 @@ package XML::XPath::XMLParser; -$VERSION = '1.36'; +$VERSION = '1.37'; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-XPath-1.36/lib/XML/XPath.pm new/XML-XPath-1.37/lib/XML/XPath.pm --- old/XML-XPath-1.36/lib/XML/XPath.pm 2016-04-13 15:23:04.000000000 +0200 +++ new/XML-XPath-1.37/lib/XML/XPath.pm 2016-06-02 11:29:22.000000000 +0200 @@ -6,14 +6,14 @@ =head1 VERSION -Version 1.36 +Version 1.37 =cut use strict; use warnings; use vars qw($VERSION $AUTOLOAD $revision); -$VERSION = '1.36'; +$VERSION = '1.37'; $XML::XPath::Namespaces = 1; $XML::XPath::ParseParamEnt = 1; $XML::XPath::Debug = 0; @@ -153,11 +153,11 @@ ); $context = $parser->parse; $self->set_context($context); - #warn "CONTEXT:\n", Dumper([$context], ['context']); + print "CONTEXT:\n", Dumper([$context], ['context']) if $XML::XPath::Debug; } my $parsed_path = $self->{path_parser}->parse($path); - #warn "\n\nPATH: ", $parsed_path->as_string, "\n\n"; + print "\n\nPATH: ", $parsed_path->as_string, "\n\n" if $XML::XPath::Debug; #warn "evaluating path\n"; return $parsed_path->evaluate($context);