Import of YANICK/XML-XPathScript-1.51 from CPAN.

gitpan-cpan-distribution: XML-XPathScript
gitpan-cpan-version:      1.51
gitpan-cpan-path:         YANICK/XML-XPathScript-1.51.tar.gz
gitpan-cpan-author:       YANICK
gitpan-cpan-maturity:     released

Author: Yanick Champoux

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl module XML::XPathScript
 
+1.51 Jul 5, 2007
+    - Changes to X::X::Stylesheet::Docbook2LaTeX for Pod::Manual
+
 1.50.1 Jul 5, 2007
     - Silencing warnings in t/04unicode.t
     - t/99signature.t is now an author test 

META.yml

@@ -1,6 +1,6 @@
 ---
 name: XML-XPathScript
-version: 1.50.1
+version: 1.51
 author:
   - 'Yanick Champoux <yanick@cpan.org>'
   - 'Dominique Quatravaux <domq@cpan.org> '
@@ -24,35 +24,35 @@ build_requires:
 provides:
   Apache::AxKit::Language::YPathScript:
     file: lib_axkit/Apache/AxKit/Language/YPathScript.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript:
     file: lib/XML/XPathScript.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::Processor:
     file: lib/XML/XPathScript/Processor.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::Processor::B:
     file: lib/XML/XPathScript/Processor/B.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::Processor::LibXML:
     file: lib/XML/XPathScript/Processor/LibXML.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::Processor::XPath:
     file: lib/XML/XPathScript/Processor/XPath.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::StdoutSnatcher:
     file: lib/XML/XPathScript.pm
   XML::XPathScript::Stylesheet::DocBook2LaTeX:
     file: lib/XML/XPathScript/Stylesheet/DocBook2LaTeX.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::Template:
     file: lib/XML/XPathScript/Template.pm
-    version: 1.50.1
+    version: 1.51
   XML::XPathScript::Template::Content:
     file: lib/XML/XPathScript/Processor.pm
   XML::XPathScript::Template::Tag:
     file: lib/XML/XPathScript/Template/Tag.pm
-    version: 1.50.1
+    version: 1.51
 generated_by: Module::Build version 0.2806
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

SIGNATURE

@@ -15,26 +15,26 @@ not run its Makefile.PL or Build.PL.
 Hash: SHA1
 
 SHA1 650c5209a1446ddc0c69b8cb04002a9b884a2818 Build.PL
-SHA1 1f470d087292abb8f1da298bafe0df1b64b1650a Changes
+SHA1 b6067af4f6ea1207fac092fbe266b20f3d8247fb Changes
 SHA1 05a5f3528ef8a73c665e5e73cfe088a22841d60f MANIFEST
-SHA1 f6e3b3956d01f6cb1f2478b6b4f7da6277468e6a META.yml
+SHA1 d53f8120147cac207e1d35a899b11b63b6bb5cd7 META.yml
 SHA1 10ff3cb66031d8671cfbd03cbb4bfc14c3370c8d Makefile.PL
 SHA1 c2e34b4811270ed95284adb577460fdc93be8685 README
 SHA1 585dbee14359e90630096c4c39d944c3ed5fd0df dist/rewrite-default-xml-parser
 SHA1 b8f13d00c750860ca69a0f2be632fdb0cf1b3256 examples/docbook2latex.xps
 SHA1 49de2221717af40dfd852e18c46650097290aa1f examples/sample-docbook.xml
-SHA1 763b95af2c00f1ed3095378d06469d5f227b1e9a lib/XML/XPathScript.pm
-SHA1 d6e2a77b0c5129593218813d3a5396663296cec7 lib/XML/XPathScript/Processor.pm
-SHA1 6323338bb4369dd3f82c28e944617a3079b77d2b lib/XML/XPathScript/Processor/B.pm
-SHA1 fc4804c4926a170ea54e8b54c82d8826a59dcb37 lib/XML/XPathScript/Processor/LibXML.pm
-SHA1 db0d9cf161c85992a760a81a707e90d48f7594e6 lib/XML/XPathScript/Processor/XPath.pm
+SHA1 f51bb4d3ec7c517b4766e033d894e973df43f1d5 lib/XML/XPathScript.pm
+SHA1 84e333cfa9e7985cfe926b251b3baa0189861ab4 lib/XML/XPathScript/Processor.pm
+SHA1 ce089329995f7c7b5d420ab78167c5de96cfd3d8 lib/XML/XPathScript/Processor/B.pm
+SHA1 3108044a8dc89d4262ae23e27da9fad66baebeab lib/XML/XPathScript/Processor/LibXML.pm
+SHA1 dff51117bdab65035db25f1a63296bab867ba736 lib/XML/XPathScript/Processor/XPath.pm
 SHA1 4f2bd67d33fd417629c6cff2a0d3053035c45e03 lib/XML/XPathScript/Stylesheet.pod
-SHA1 aeb2b70124159ca29c609910e6ef6e5911d646ff lib/XML/XPathScript/Stylesheet/DocBook2LaTeX.pm
-SHA1 305ed683d5de280fb0bce5324d988340f0a669ac lib/XML/XPathScript/Template.pm
-SHA1 f08334d85c5870543b8b83a37860c94e269d084b lib/XML/XPathScript/Template/Tag.pm
-SHA1 6a8ab60f3ee449ef59148789e4e860ccde29c6af lib_axkit/Apache/AxKit/Language/YPathScript.pm
-SHA1 bed024fac703685557a02adc5c73e37221d18797 lib_tomkit/Apache2/TomKit/Processor/XPathScript.pm
-SHA1 cf475bb123037cb0e834e96816e8c129c1a6a88d script/xpathscript
+SHA1 dfa670670052504652bcf7b07a77769c0d804fd8 lib/XML/XPathScript/Stylesheet/DocBook2LaTeX.pm
+SHA1 56f5c4263b3bf0222b765affec2dd962a515d203 lib/XML/XPathScript/Template.pm
+SHA1 aacd1eeda37530ac36d228bfe8c578d7a3ac9267 lib/XML/XPathScript/Template/Tag.pm
+SHA1 c42f35dec09e38a9576943b2d6a963376088b602 lib_axkit/Apache/AxKit/Language/YPathScript.pm
+SHA1 b9d91b16f30aa9d53cd648744a91156635158320 lib_tomkit/Apache2/TomKit/Processor/XPathScript.pm
+SHA1 221c8eb3ccde56e17cbae80e8b28dcfbceccd786 script/xpathscript
 SHA1 0fabf086f09dd536eab3e44118e71ed456a53eb1 t/00build.t
 SHA1 9d8a3166da409cfa69237aaf8228e17f6e75cf9a t/01basic.t
 SHA1 66b1a741ea182ba1ff9fcdc6527ee3fdbbec10ef t/02interpolate.t
@@ -102,7 +102,7 @@ SHA1 d36ad2b5860e4ca564b845e0e7bb5d5134624d6e t/testdocs/tag_attributes.xps
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.3 (GNU/Linux)
 
-iD8DBQFGjYgl34Hwf+GwC4wRAhGPAKCbNAnPncO/CRttmplCJz0gAxYEOgCfe3IM
-+vYNPNExOZmICRn5QvIa+2w=
-=TRiA
+iD8DBQFGjaf334Hwf+GwC4wRArmdAKDKgfKH7O1ZwGGwgAS1659mmRS4fACg+buc
+Y1cKtwdhyHziJnr2Arlm4tw=
+=5vfP
 -----END PGP SIGNATURE-----

lib/XML/XPathScript.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Carp;
 
-# $Revision: 998 $ - $Date: 2007-07-06T00:30:49.463277Z $
+# $Revision: 1007 $ - $Date: 2007-07-06T02:46:24.873259Z $
 
 =pod 
 
@@ -239,7 +239,7 @@ use File::Basename;
 use XML::XPathScript::Processor;
 use XML::XPathScript::Template;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 $XML_parser = 'XML::LibXML';
 

lib/XML/XPathScript/Processor.pm

@@ -9,7 +9,7 @@ use base qw/ Exporter /;
 use XML::XPathScript::Template;
 use Readonly;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 our @EXPORT = qw/ 
         $DO_SELF_AS_CHILD 

lib/XML/XPathScript/Processor/B.pm

@@ -5,7 +5,7 @@ package XML::XPathScript::Processor::B;
 
 use base qw/ XML::XPathScript::Processor /;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 # No namespaces here
 sub get_namespace { }

lib/XML/XPathScript/Processor/LibXML.pm

@@ -5,7 +5,7 @@ use warnings;
 
 use base qw/ XML::XPathScript::Processor /;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 sub get_namespace {
         my $ns = $_[1]->getNamespaces();

lib/XML/XPathScript/Processor/XPath.pm

@@ -5,7 +5,7 @@ package XML::XPathScript::Processor::XPath;
 
 use base qw/ XML::XPathScript::Processor /;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 sub get_namespace { 
         my $prefix = $_[1]->getPrefix or return;

lib/XML/XPathScript/Stylesheet/DocBook2LaTeX.pm

@@ -6,7 +6,7 @@ use strict;
 use XML::XPathScript::Processor;
 use Carp;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 our $processor;
 
@@ -331,6 +331,7 @@ sub listtitle {
 }
 
 sub tc_screen {
+    no warnings qw/ uninitialized /;
 	my ($self,$t)=@_;
 	my $ret= verbatimcode($self,$t,1);
 
@@ -401,6 +402,7 @@ sub verbatimcode {
 };
 
 sub RE_of_uniconvs {
+    no warnings qw/ digit /;
 	my ($uni)=@_;
 	my @latin1variants=grep {$_ < 0xFF} (keys %$uni);
 	my $RE='[^\x9\xA\x20-\xFF]|'.
@@ -430,6 +432,7 @@ sub utf8totex {
 	do {
  	 use utf8;
 
+    no warnings qw/ digit /;
 	 $uni =~ s/($escapeRE)/
 	     my $c=ord($1);
 		 if (exists $$uniref{$c}) { "<$c>"; } else {
@@ -498,8 +501,12 @@ sub tc_section {
     }
 
     my $title = apply_templates_under('title',$n);
-    my $titleabbrev = apply_templates_under( $n->findnodes('titleabbrev') )
-                        || $title ;
+    my( $abbrev_node ) = $n->findnodes('titleabbrev');
+    my $titleabbrev;
+    if ( $abbrev_node ) {
+        $titleabbrev = apply_templates_under( $abbrev_node );
+    }
+    $titleabbrev ||= $title ;
 
     if ( $numbered_sections ) {
         $t->{pre}="\n\n".sprintf '\%s[%s]{%s}',$name ,$titleabbrev, $title ;
@@ -521,9 +528,13 @@ sub tc_section {
 };
 
 sub thelabel {
+    return unless @_;
+
+    no warnings qw/ uninitialized /;
+
     my $label = id2label( $_[0] );
 
-    return "\\label{$label}\n" x !!$label;
+    return $label ? "\\label{$label}\n" : q{} ;
 }
 
 # Handle UTF-8 braindamage and prevent utf8 tainting from propagating
@@ -657,6 +668,7 @@ SUBTITLE
 \title{\textbf{\textsc{\Huge{}%s}}}
 TITLE
 
+        no warnings qw/ uninitialized /;
 		$t->{pre}.="\n\\author{$author}\n";
    };
 

lib/XML/XPathScript/Template.pm

@@ -13,7 +13,7 @@ use Scalar::Util qw/ refaddr /;
 use overload '&{}'  => \&_overload_func,
              q{""}  => \&_overload_quote;
 
-our $VERSION = '1.50.1';
+our $VERSION = '1.51';
 
 sub new {
    my( $class ) = @_;