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 - co...@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);


Reply via email to