.gitignore

@@ -1,23 +1 @@
-XML-XPath-1.13.tar.gz
-/XML-XPath-1.19.tar.gz
-/XML-XPath-1.20.tar.gz
-/XML-XPath-1.21.tar.gz
-/XML-XPath-1.22.tar.gz
-/XML-XPath-1.24.tar.gz
-/XML-XPath-1.25.tar.gz
-/XML-XPath-1.26.tar.gz
-/XML-XPath-1.28.tar.gz
-/XML-XPath-1.29.tar.gz
-/XML-XPath-1.30.tar.gz
-/XML-XPath-1.31.tar.gz
-/XML-XPath-1.32.tar.gz
-/XML-XPath-1.33.tar.gz
-/XML-XPath-1.34.tar.gz
-/XML-XPath-1.35.tar.gz
-/XML-XPath-1.36.tar.gz
-/XML-XPath-1.37.tar.gz
-/XML-XPath-1.38.tar.gz
-/XML-XPath-1.39.tar.gz
-/XML-XPath-1.40.tar.gz
-/XML-XPath-1.41.tar.gz
-/XML-XPath-1.42.tar.gz
+SOURCES/XML-XPath-1.42.tar.gz

.perl-XML-XPath.metadata

@@ -0,0 +1 @@
+addb3668a25ba45b7242bd2ff78a1f704d6edf14 SOURCES/XML-XPath-1.42.tar.gz

.rpmlint

@@ -1,2 +0,0 @@
-from Config import *
-addFilter("spelling-error .* evaluator");

sources

@@ -1 +0,0 @@
-SHA512 (XML-XPath-1.42.tar.gz) = 170e0d5369f937444ae340dcceccef2e836a3a87f393e4f2915a189d822101278c5046665f1bc9b165f7358deab9207e199903d5d4f2f3d8e62ee04a31fafe0b

xpath.man.patch

@@ -1,259 +0,0 @@
-Author: Ardo van Rangelrooij <ardo@debian.org>
-Description:
-  * examples/xpath: patched by Fabien Ninoles <fabien@Nightbird.TZoNE.ORG>
-    (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<fabien@tzone.org>) 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@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@sergeant.org
-+
-+This man page was added as well as some serious modifications to the script
-+by Fabien Ninoles <fabien@debian.org> for the Debian Project.
-+
-+=cut