[perl-XML-XPath] 680418 - missing man page for xpath applied debian patch, which added POD into xpath code, but also

[Marcela Mašláňová]

commit 06198004f6132c58258cfdf3d930f05f1b784c4b
Author: Marcela Mašláňová <mmaslano(a)redhat.com&gt;
Date:   Fri Mar 16 17:41:28 2012 +0100

    680418 - missing man page for xpath
     applied debian patch, which added POD into xpath code, but also fix debian
bug(#185292)

 perl-XML-XPath.spec |   11 ++-
 xpath.man.patch     |  259 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 267 insertions(+), 3 deletions(-)
---
diff --git a/perl-XML-XPath.spec b/perl-XML-XPath.spec
index beaaea9..8b3714c 100644
--- a/perl-XML-XPath.spec
+++ b/perl-XML-XPath.spec
@@ -1,6 +1,6 @@
 Name:           perl-XML-XPath
 Version:        1.13
-Release:        16%{?dist}
+Release:        17%{?dist}
 
 Summary:        XPath parser and evaluator for Perl
 
@@ -9,6 +9,7 @@ License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/XML-XPath/
 Source0:    http://www.cpan.org/authors/id/M/MS/MSERGEANT/XML-XPath-1.13.tar.gz
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+Patch0:         xpath.man.patch
 
 BuildArch:      noarch
 BuildRequires:  perl(XML::Parser)
@@ -24,7 +25,7 @@ this as they support functionality beyond XPath.
 
 %prep
 %setup -q -n XML-XPath-%{version}
-
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -38,7 +39,6 @@ find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
 find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';'
 chmod -R u+w $RPM_BUILD_ROOT/*
 
-
 %check
 make test
 
@@ -52,10 +52,15 @@ rm -rf $RPM_BUILD_ROOT
 %doc README TODO
 %{_bindir}/xpath
 %{perl_vendorlib}/XML
+%{_mandir}/man1/xpath*
 %{_mandir}/man3/*.3*
 
 
 %changelog
+* Fri Mar 16 2012 Marcela Mašláňová <mmaslano(a)redhat.com&gt; - 1.13-17
+- 680418 - missing man page for xpath
+- applied debian patch, which added POD into xpath code, but also fix debian
bug(#185292)
+
 * Fri Jan 13 2012 Fedora Release Engineering <rel-eng(a)lists.fedoraproject.org&gt; -
1.13-16
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
 
diff --git a/xpath.man.patch b/xpath.man.patch
new file mode 100644
index 0000000..349f7fd
--- /dev/null
+++ b/xpath.man.patch
@@ -0,0 +1,259 @@
+Author: Ardo van Rangelrooij <ardo(a)debian.org&gt;
+Description:
+  * examples/xpath: patched by Fabien Ninoles <fabien(a)Nightbird.TZoNE.ORG&gt;
+    (thanks Fabien!)
+  * examples/xpath: fixed erroneous handling of filenames containing a '-'
+    (closes: Bug#185292)
+  * examples/xpath: fixed various small typos in the POD
+    (closes: Bug#180508)
+
+diff -up XML-XPath-1.13/examples/xpath.old XML-XPath-1.13/examples/xpath
+--- XML-XPath-1.13/examples/xpath.old	2001-02-14 13:43:33.000000000 +0100
++++ XML-XPath-1.13/examples/xpath	2012-03-16 17:31:58.812485837 +0100
+@@ -1,74 +1,113 @@
+ #!/usr/bin/perl -w
++
++eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
++    if 0; # not running under some shell
+ use strict;
+ 
+ $| = 1;
+ 
+-unless (@ARGV >= 1) {
+-	print STDERR qq(Usage:
+-$0 [filename] query
+-				
+-	If no filename is given, supply XML on STDIN.
+-);
+-	exit;
+-}
+-
+ use XML::XPath;
+ 
+-my $xpath;
+-
++my @paths;
+ my $pipeline;
++my $SUFFIX = "\n";
++my $PREFIX = "";
++my $quiet = 0;
++
++PARSE: while ((@ARGV >= 1) && ($ARGV[0] =~ /^-./ )) {
++      OPTIONS: {
++              if ($ARGV[0] eq "-e") {
++                      shift;
++                      push @paths, shift;
++                      last OPTIONS;
++              }
++              if ($ARGV[0] eq "-p") {
++                      shift;
++                      $PREFIX = shift;
++                      last OPTIONS;
++              }
++              if ($ARGV[0] eq "-s") {
++                      shift;
++                      $SUFFIX = shift;
++                      last OPTIONS;
++              }
++              if ($ARGV[0] eq "-q") {
++                      $quiet = 1;
++                      shift;
++                      last OPTIONS;
++              }
++              print STDERR "Unknown option ignore: ", shift;
++      }
++}
++
++unless (@paths >= 1) {
++      print STDERR qq(Usage:
++$0 [options] -e query [-e query...] [filename...]
++
++      If no filenams are given, supply XML on STDIN.
++      You must provide at least one query. Each supplementary
++      query is done in order, the previous query giving the
++      context of the next one.
++
++      Options:
++
++      -q              quiet. Only output the resulting PATH
++      -s suffix       use suffix instead of linefeed.
++      -p postfix      use prefix instead of nothing.
++);
+ 
+-if ($ARGV[0] eq '-p') {
+-	# pipeline mode
+-	$pipeline = 1;
+-	shift @ARGV;
+-}
+-if (@ARGV >= 2) {
+-	$xpath = XML::XPath->new(filename => shift(@ARGV));
+-}
+-else {
+-	$xpath = XML::XPath->new(ioref => \*STDIN);
+-}
+-
+-my $nodes = $xpath->find(shift @ARGV);
+-
+-unless ($nodes->isa('XML::XPath::NodeSet')) {
+-NOTNODES:
+-	print STDERR "Query didn't return a nodeset. Value: ";
+-	print $nodes->value, "\n";
+ 	exit;
+ }
+ 
+-if ($pipeline) {
+-	$nodes = find_more($nodes);
+-	goto NOTNODES unless $nodes->isa('XML::XPath::NodeSet');
+-}
+-
+-if ($nodes->size) {
+-	print STDERR "Found ", $nodes->size, " nodes:\n";
+-	foreach my $node ($nodes->get_nodelist) {
+-		print STDERR "-- NODE --\n";
+-		print $node->toString;
+-	}
+-}
+-else {
+-	print STDERR "No nodes found";
+-}
+-
+-print STDERR "\n";
++do
++{
++      my $xpath;
++      my @curpaths = @paths;
++      my $filename;
++      if (@ARGV >= 1) {
++              $filename = shift @ARGV;
++              $xpath = XML::XPath->new(filename => $filename);
++      }
++      else {
++              $filename = 'stdin';
++              $xpath = XML::XPath->new(ioref => \*STDIN);
++      }
++      my $nodes = $xpath->find(shift @curpaths);
++
++      if ($nodes->isa('XML::XPath::NodeSet')) {
++              while (@curpaths >= 1) {
++                      $nodes = find_more($xpath, shift @curpaths, $nodes);
++                      last unless $nodes->isa('XML::XPath::NodeSet');
++              }
++      }
++
++      if ($nodes->isa('XML::XPath::NodeSet')) {
++              if ($nodes->size) {
++                      print STDERR "Found ", $nodes->size, " nodes in
$filename:\n" unless $quiet;
++                      foreach my $node ($nodes->get_nodelist) {
++                              print STDERR "-- NODE --\n" unless $quiet;
++                              print $PREFIX, $node->toString, $SUFFIX;
++                      }
++              }
++              else {
++                      print STDERR "No nodes found in $filename\n" unless
$quiet;
++              }
++      }
++      else {
++              print STDERR "Query didn't return a nodeset. Value: ";
++              print $nodes->value, "\n";
++      }
++} until (@ARGV < 1);
+ 
+ exit;
+ 
+ sub find_more {
++	my $xpath = shift;
++	my $find = shift;
+ 	my ($nodes) = @_;
+-	if (!@ARGV) {
+-		return $nodes;
+-	}
+ 	
+ 	my $newnodes = XML::XPath::NodeSet->new;
+ 	
+-	my $find = shift @ARGV;
+-	
+ 	foreach my $node ($nodes->get_nodelist) {
+ 		my $new = $xpath->find($find, $node);
+ 		if ($new->isa('XML::XPath::NodeSet')) {
+@@ -79,5 +118,80 @@ sub find_more {
+ 		}
+ 	}
+ 	
+-	return find_more($newnodes);
++	return $newnodes;
+ }
++
++__END__
++=head1 NAME
++
++xpath - a script to query XPath statements in XML documents.
++
++=head1 SYNOPSIS
++
++B<xpath [-s suffix] [-p prefix] [-q] -e query [-e query] ... [file] ...>
++
++=head1 DESCRIPTION
++
++B<xpath> uses the L<XML::XPath|XML::XPath> perl module to make XPath
queries
++to any XML document. The L<XML::XPath|XML::XPath> module aims to comply exactly
++to the XPath specification at C<http://www.w3.org/TR/xpath> and yet
++allows extensions to be added in the form of functions.
++
++The script takes any number of XPath pointers and tries to apply them
++to each XML document given on the command line. If no file arguments
++are given, the query is done using C<STDIN> as an XML document.
++
++When multiple queries exist, the result of the last query is used as
++context for the next query and only the result of the last one is output.
++The context of the first query is always the root of the current document.
++
++=head1 OPTIONS
++
++=head2 B<-q>
++
++Be quiet. Output only errors (and no separator) on stderr.
++
++=head2 B<-s suffix>
++
++Place C<suffix> at the end of each entry. Default is a linefeed.
++
++=head2 B<-p prefix>
++
++Place C<prefix> preceding each entry. Default is nothing.
++
++=head1 BUGS
++
++The author of this man page is not very fluant in english. Please,
++send him (L&lt;fabien(a)tzone.org&gt;) any corrections concerning this text.
++
++See also L<XML::XPath(3pm)>.
++
++=head1 SEE ALSO
++
++L<XML::XPath(3pm)>.
++=head1 HISTORY
++
++This module is copyright 2000 Fastnet Software Ltd. This is free
++software, and as such comes with NO WARRANTY. No dates are used in this
++module. You may distribute this module under the terms of either the
++Gnu GPL,  or under specific licencing from Fastnet Software Ltd.
++Special free licencing consideration will be given to similarly free
++software. Please don't flame me for this licence - I've put a lot of
++hours into this code, and if someone uses my software in their product
++I expect them to have the courtesy to contact me first.
++
++Full support for this module is available from Fastnet Software Ltd on
++a pay per incident basis. Alternatively subscribe to the Perl-XML
++mailing list by mailing lyris(a)activestate.com with the text:
++
++      SUBSCRIBE Perl-XML
++
++in the body of the message. There are lots of friendly people on the
++list, including myself, and we'll be glad to get you started.
++
++Matt Sergeant, matt(a)sergeant.org
++
++This man page was added as well as some serious modifications to the script
++by Fabien Ninoles <fabien(a)debian.org&gt; for the Debian Project.
++
++=cut