From 38ec38fe5732e5cc20fda9113c64e4113273352c Mon Sep 17 00:00:00 2001 From: CentOS Buildsys Date: Aug 24 2012 12:48:19 +0000 Subject: import perl-XML-XPath-1.13-20.el7.src.rpm --- diff --git a/.perl-XML-XPath.metadata b/.perl-XML-XPath.metadata new file mode 100644 index 0000000..3fa4310 --- /dev/null +++ b/.perl-XML-XPath.metadata @@ -0,0 +1 @@ +72a8e7a71f5d0b46e004adfbc5c5dbf59affd03c SOURCES/XML-XPath-1.13.tar.gz diff --git a/README.md b/README.md deleted file mode 100644 index 0e7897f..0000000 --- a/README.md +++ /dev/null @@ -1,5 +0,0 @@ -The master branch has no content - -Look at the c7 branch if you are working with CentOS-7, or the c4/c5/c6 branch for CentOS-4, 5 or 6 - -If you find this file in a distro specific branch, it means that no content has been checked in yet diff --git a/SOURCES/xpath.man.patch b/SOURCES/xpath.man.patch new file mode 100644 index 0000000..349f7fd --- /dev/null +++ b/SOURCES/xpath.man.patch @@ -0,0 +1,259 @@ +Author: Ardo van Rangelrooij +Description: + * examples/xpath: patched by Fabien Ninoles + (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 ++ ++=head1 DESCRIPTION ++ ++B uses the L perl module to make XPath queries ++to any XML document. The L module aims to comply exactly ++to the XPath specification at C 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 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 at the end of each entry. Default is a linefeed. ++ ++=head2 B<-p prefix> ++ ++Place C preceding each entry. Default is nothing. ++ ++=head1 BUGS ++ ++The author of this man page is not very fluant in english. Please, ++send him (L) any corrections concerning this text. ++ ++See also L. ++ ++=head1 SEE ALSO ++ ++L. ++=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 for the Debian Project. ++ ++=cut diff --git a/SPECS/perl-XML-XPath.spec b/SPECS/perl-XML-XPath.spec new file mode 100644 index 0000000..3af3036 --- /dev/null +++ b/SPECS/perl-XML-XPath.spec @@ -0,0 +1,130 @@ +Name: perl-XML-XPath +Version: 1.13 +Release: 20%{?dist} + +Summary: XPath parser and evaluator for Perl + +Group: Development/Libraries +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(Carp) +BuildRequires: perl(Exporter) +BuildRequires: perl(ExtUtils::MakeMaker) +BuildRequires: perl(IO::File) +BuildRequires: perl(Test) +BuildRequires: perl(XML::Parser) +Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) + +%description +This module aims to comply exactly to the XPath specification at +http://www.w3.org/TR/xpath and yet allow extensions to be added in the +form of functions. Modules such as XSLT and XPointer may need to do +this as they support functionality beyond XPath. + + +%prep +%setup -q -n XML-XPath-%{version} +%patch0 -p1 + +%build +%{__perl} Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} + + +%install +rm -rf $RPM_BUILD_ROOT +make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT +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 + + +%clean +rm -rf $RPM_BUILD_ROOT + + +%files +%defattr(-,root,root,-) +%doc README TODO +%{_bindir}/xpath +%{perl_vendorlib}/XML +%{_mandir}/man1/xpath* +%{_mandir}/man3/*.3* + + +%changelog +* Fri Aug 24 2012 Jitka Plesnikova - 1.13-20 +- Specify all dependencies. + +* Wed Aug 15 2012 Daniel Mach - 1.13-19.1 +- Rebuild for perl 5.16 + +* Fri Jul 20 2012 Fedora Release Engineering - 1.13-19 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild + +* Fri Jun 15 2012 Petr Pisar - 1.13-18 +- Perl 5.16 rebuild + +* Fri Mar 16 2012 Marcela Mašláňová - 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 - 1.13-16 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild + +* Wed Jul 20 2011 Petr Sabata - 1.13-15 +- Perl mass rebuild + +* Wed Feb 09 2011 Fedora Release Engineering - 1.13-14 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild + +* Thu Dec 23 2010 Marcela Maslanova - 1.13-13 +- 661697 rebuild for fixing problems with vendorach/lib + +* Fri May 07 2010 Marcela Maslanova - 1.13-12 +- Mass rebuild with perl-5.12.0 + +* Thu Dec 10 2009 Marcela Maslanova - 1.13-11 +- 541668 fix requires for review + +* Mon Dec 7 2009 Stepan Kasal - 1.13-10 +- rebuild against perl 5.10.1 + +* Sun Jul 26 2009 Fedora Release Engineering - 1.13-9 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild + +* Thu Feb 26 2009 Fedora Release Engineering - 1.13-8 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild + +* Mon Jun 2 2008 Marcela Maslanova - 1.13-7 +- rebuild and remove ||: from check part + +* Wed Feb 27 2008 Tom "spot" Callaway - 1.13-6 +- Rebuild for perl 5.10 (again) + +* Thu Jan 24 2008 Tom "spot" Callaway 1.13-5 +- rebuild for new perl + +* Wed Oct 17 2007 Tom "spot" Callaway 1.13-4.1 +- correct license tag +- add BR: perl(ExtUtils::MakeMaker) + +* Thu Aug 31 2006 Chris Weyl 1.13-4 +- bump for mass rebuild + +* Fri Apr 7 2005 Michael Schwendt +- rebuilt + +* Sun Jul 11 2004 Ville Skyttä - 0:1.13-2 +- Bring up to date with current fedora.us Perl spec template. + +* Sun Oct 12 2003 Ville Skyttä - 0:1.13-0.fdr.1 +- First build.