r73947 - in /branches/upstream/libxml-tidy-perl/current: Build.PL CHANGES META.yml Makefile.PL README Tidy.pm

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Tue May 3 21:17:25 UTC 2011 

Author: periapt-guest
Date: Tue May  3 21:16:23 2011
New Revision: 73947

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73947
Log:
[svn-upgrade] new version libxml-tidy-perl (1.10.B52FpLx)

Modified:
    branches/upstream/libxml-tidy-perl/current/Build.PL
    branches/upstream/libxml-tidy-perl/current/CHANGES
    branches/upstream/libxml-tidy-perl/current/META.yml
    branches/upstream/libxml-tidy-perl/current/Makefile.PL
    branches/upstream/libxml-tidy-perl/current/README
    branches/upstream/libxml-tidy-perl/current/Tidy.pm

Modified: branches/upstream/libxml-tidy-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-tidy-perl/current/Build.PL?rev=73947&op=diff
==============================================================================
--- branches/upstream/libxml-tidy-perl/current/Build.PL (original)
+++ branches/upstream/libxml-tidy-perl/current/Build.PL Tue May  3 21:16:23 2011
@@ -4,7 +4,7 @@
 # 'module_name'                   => 'XML::Tidy',
   'dist_name'                     => 'XML-Tidy',
 # 'dist_version_from'             => 'Tidy.pm',
-  'dist_version'                  => '1.8.B2AMvdl',
+  'dist_version'                  => '1.10.B52FpLx',
   'dist_abstract'                 => 'tidy indenting of XML documents',
   'dist_author'                   => 'Pip Stuart <Pip at CPAN.Org>',
 # 'create_readme'                 => '1',

Modified: branches/upstream/libxml-tidy-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-tidy-perl/current/CHANGES?rev=73947&op=diff
==============================================================================
--- branches/upstream/libxml-tidy-perl/current/CHANGES (original)
+++ branches/upstream/libxml-tidy-perl/current/CHANGES Tue May  3 21:16:23 2011
@@ -1,5 +1,9 @@
 CHANGES
     Revision history for Perl extension XML::Tidy:
+
+    - 1.10.B52FpLx Mon May 2 15:51:21:59 2011
+        * added tests for undefined non-standard XML declaration to suppress
+        warnings
 
     - 1.8.B2AMvdl Thu Feb 10 22:57:39:47 2011
         * aligned .t code

Modified: branches/upstream/libxml-tidy-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-tidy-perl/current/META.yml?rev=73947&op=diff
==============================================================================
--- branches/upstream/libxml-tidy-perl/current/META.yml (original)
+++ branches/upstream/libxml-tidy-perl/current/META.yml Tue May  3 21:16:23 2011
@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name: XML-Tidy
 abstract: tidy indenting of XML documents
-version: 1.8.B2AMvdl
+version: 1.10.B52FpLx
 author:
   - Pip Stuart <Pip at CPAN.Org>
 license: gpl

Modified: branches/upstream/libxml-tidy-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-tidy-perl/current/Makefile.PL?rev=73947&op=diff
==============================================================================
--- branches/upstream/libxml-tidy-perl/current/Makefile.PL (original)
+++ branches/upstream/libxml-tidy-perl/current/Makefile.PL Tue May  3 21:16:23 2011
@@ -3,7 +3,7 @@
 #   the contents of the Makefile that is written.
 WriteMakefile(
   'NAME'         => 'XML::Tidy',
-  'VERSION'      => '1.8.B2AMvdl',
+  'VERSION'      => '1.10.B52FpLx',
   'ABSTRACT'     => 'tidy indenting of XML documents',
   'AUTHOR'       => 'Pip Stuart <Pip at CPAN.Org>',
   'EXE_FILES'    => [ 

Modified: branches/upstream/libxml-tidy-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-tidy-perl/current/README?rev=73947&op=diff
==============================================================================
--- branches/upstream/libxml-tidy-perl/current/README (original)
+++ branches/upstream/libxml-tidy-perl/current/README Tue May  3 21:16:23 2011
@@ -2,8 +2,8 @@
     XML::Tidy - tidy indenting of XML documents
 
 VERSION
-    This documentation refers to version 1.8.B2AMvdl of XML::Tidy, which was
-    released on Thu Feb 10 22:57:39:47 2011.
+    This documentation refers to version 1.10.B52FpLx of XML::Tidy, which
+    was released on Mon May 2 15:51:21:59 2011.
 
 SYNOPSIS
       use XML::Tidy;
@@ -275,6 +275,10 @@
 CHANGES
     Revision history for Perl extension XML::Tidy:
 
+    - 1.10.B52FpLx Mon May 2 15:51:21:59 2011
+        * added tests for undefined non-standard XML declaration to suppress
+        warnings
+
     - 1.8.B2AMvdl Thu Feb 10 22:57:39:47 2011
         * aligned .t code
 

Modified: branches/upstream/libxml-tidy-perl/current/Tidy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-tidy-perl/current/Tidy.pm?rev=73947&op=diff
==============================================================================
--- branches/upstream/libxml-tidy-perl/current/Tidy.pm (original)
+++ branches/upstream/libxml-tidy-perl/current/Tidy.pm Tue May  3 21:16:23 2011
@@ -8,7 +8,7 @@
 use Exporter;
 use Math::BaseCnv qw(:b64);
 use XML::XPath::XMLParser;
-our $VERSION     = '1.8.B2AMvdl'; our $PTVR = $VERSION; $PTVR =~ s/^\d+\.\d+\.//; # Please see `perldoc Time::PT` for an explanation of $PTVR.
+our $VERSION     = '1.10.B52FpLx'; our $PTVR = $VERSION; $PTVR =~ s/^\d+\.\d+\.//; # Please see `perldoc Time::PT` for an explanation of $PTVR.
 @EXPORT = qw(
     UNKNOWN_NODE
     ELEMENT_NODE
@@ -56,8 +56,8 @@
   else                                                               { $xpob = XML::XPath->new(@_);
     shift(@_) if($_[0] eq 'filename'); # special-case loading XML file with non-standard declaration
     if($_[0] !~ /\n/ && -r $_[0]){ # special-case loading XML file with non-standard declaration (but doesn't handle inline XML data or IORef yet)
-      open(XMLF,'<',$_[0]);$xmld = <XMLF>;close(XMLF);$xmld =~ s/(\?>).*/$1\n/; # if provided XML Declaration doesn't seem well-formed, ...
-      $xmld = qq(<?xml version="1.0" encoding="utf-8"?>\n) unless($xmld =~ /^<\?xml version="[^"]+" encoding="[^"]+" *\?>\n$/); # ...reset to Standard
+      open(XMLF,'<',$_[0]);$xmld = <XMLF>;close(XMLF);$xmld =~ s/(\?>).*/$1\n/ if(defined($xmld)); # if provided XML Declaration doesn't seem well-formed, ...
+      $xmld = qq(<?xml version="1.0" encoding="utf-8"?>\n) unless(defined($xmld) && $xmld =~ /^<\?xml version="[^"]+" encoding="[^"]+" *\?>\n$/); # ...reset to Standard
     }
   }
   my $self = bless($xpob, $clas); return($self); # self just a new XPath obj blessed into Tidy class
@@ -777,7 +777,7 @@
 
 =head1 VERSION
 
-This documentation refers to version 1.8.B2AMvdl of XML::Tidy, which was released on Thu Feb 10 22:57:39:47 2011.
+This documentation refers to version 1.10.B52FpLx of XML::Tidy, which was released on Mon May  2 15:51:21:59 2011.
 
 =head1 SYNOPSIS
 
@@ -1085,6 +1085,10 @@
 
 =over 4
 
+=item - 1.10.B52FpLx  Mon May  2 15:51:21:59 2011
+
+* added tests for undefined non-standard XML declaration to suppress warnings
+
 =item - 1.8.B2AMvdl  Thu Feb 10 22:57:39:47 2011
 
 * aligned .t code

More information about the Pkg-perl-cvs-commits mailing list