Imported Upstream version 2.0203 upstream/2.0203
authorDongHun Kwak <dh0128.kwak@samsung.com>
Sun, 24 Jul 2022 23:44:29 +0000 (08:44 +0900)
committerDongHun Kwak <dh0128.kwak@samsung.com>
Sun, 24 Jul 2022 23:44:29 +0000 (08:44 +0900)
50 files changed:
Changes
LibXML.pm
LibXML.pod
META.json
META.yml
Makefile.PL
docs/libxml.dbk
lib/XML/LibXML/Attr.pod
lib/XML/LibXML/AttributeHash.pm
lib/XML/LibXML/Boolean.pm
lib/XML/LibXML/CDATASection.pod
lib/XML/LibXML/Comment.pod
lib/XML/LibXML/Common.pm
lib/XML/LibXML/Common.pod
lib/XML/LibXML/DOM.pod
lib/XML/LibXML/Devel.pm
lib/XML/LibXML/Document.pod
lib/XML/LibXML/DocumentFragment.pod
lib/XML/LibXML/Dtd.pod
lib/XML/LibXML/Element.pod
lib/XML/LibXML/ErrNo.pm
lib/XML/LibXML/ErrNo.pod
lib/XML/LibXML/Error.pm
lib/XML/LibXML/Error.pod
lib/XML/LibXML/InputCallback.pod
lib/XML/LibXML/Literal.pm
lib/XML/LibXML/Namespace.pod
lib/XML/LibXML/Node.pod
lib/XML/LibXML/NodeList.pm
lib/XML/LibXML/Number.pm
lib/XML/LibXML/PI.pod
lib/XML/LibXML/Parser.pod
lib/XML/LibXML/Pattern.pod
lib/XML/LibXML/Reader.pm
lib/XML/LibXML/Reader.pod
lib/XML/LibXML/RegExp.pod
lib/XML/LibXML/RelaxNG.pod
lib/XML/LibXML/SAX.pm
lib/XML/LibXML/SAX.pod
lib/XML/LibXML/SAX/Builder.pm
lib/XML/LibXML/SAX/Builder.pod
lib/XML/LibXML/SAX/Generator.pm
lib/XML/LibXML/SAX/Parser.pm
lib/XML/LibXML/Schema.pod
lib/XML/LibXML/Text.pod
lib/XML/LibXML/XPathContext.pm
lib/XML/LibXML/XPathContext.pod
lib/XML/LibXML/XPathExpression.pod
scripts/bump-version-number.pl
scripts/tag-release.pl

diff --git a/Changes b/Changes
index e06087f6e7a92c8ba5f301dbdab42d39927129cd..824283b90df438964ee3f28ca4c6ce0d0b6068bd 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension XML::LibXML
 
+2.0203  2020-03-11
+    - Use Alien::Base::Wrapper for better portability.
+        - https://github.com/shlomif/perl-XML-LibXML/pull/45
+        - Thanks to @plicease
+
 2.0202  2020-01-13
     - Disable loading external DTDs or external entities by default
         - Thanks to Tim Retout
index b31d365bd74a359b185739f7666b7ce1a3a42692..33bb4eece5601607bb1cf6be4c3de076a5d6b6c0 100644 (file)
--- a/LibXML.pm
+++ b/LibXML.pm
@@ -29,7 +29,7 @@ use XML::LibXML::XPathContext;
 use IO::Handle; # for FH reads called as methods
 
 BEGIN {
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 $ABI_VERSION = 2;
 require Exporter;
 require DynaLoader;
index e5150f6c8f848184ec89fcc7568e110c18e09f2c..8d7d01b45bb0a4db41ced936093934ddf1504d13 100644 (file)
@@ -507,7 +507,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index a2002e5a5a4fbe940707cf2b596e1e438ee2f254..6d21472e36f08bfe3530fdcd0843fc51a6341127 100644 (file)
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
       "Petr Pajas <PAJAS@cpan.org>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010",
+   "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010",
    "keywords" : [
       "dom",
       "html",
@@ -45,6 +45,7 @@
       },
       "configure" : {
          "requires" : {
+            "Alien::Base::Wrapper" : "0",
             "Alien::Libxml2" : "0",
             "Config" : "0",
             "ExtUtils::MakeMaker" : "0"
@@ -96,6 +97,6 @@
          "web" : "https://github.com/shlomif/perl-XML-LibXML"
       }
    },
-   "version" : "2.0202",
-   "x_serialization_backend" : "JSON::PP version 4.02"
+   "version" : "2.0203",
+   "x_serialization_backend" : "JSON::PP version 4.04"
 }
index e27da80ea9fe24b079e461874df7820362e8722c..ddf6f8627ef292ef6f3b3a198b3dc6115d032014 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -14,11 +14,12 @@ build_requires:
   locale: '0'
   utf8: '0'
 configure_requires:
+  Alien::Base::Wrapper: '0'
   Alien::Libxml2: '0'
   Config: '0'
   ExtUtils::MakeMaker: '0'
 dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010'
 keywords:
   - dom
   - html
@@ -68,5 +69,5 @@ requires:
   warnings: '0'
 resources:
   repository: https://github.com/shlomif/perl-XML-LibXML.git
-version: '2.0202'
+version: '2.0203'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
index aba6b8e4d0eb3fdd702d0da390f066d21830aafa..138b86f12a236b76ff1e1baa6483ae33bdd5ef4b 100644 (file)
@@ -17,12 +17,13 @@ use warnings;
 
 require 5.008001;
 
-use Alien::Libxml2;
+use Alien::Base::Wrapper qw( Alien::Libxml2 );
 use ExtUtils::MakeMaker;
 use Config;
 
 my %ConfigReqs = (
   "Alien::Libxml2" => 0,
+  "Alien::Base::Wrapper" => 0,
   "Config" => 0,
   "ExtUtils::MakeMaker" => 0,
 );
@@ -68,8 +69,7 @@ my %prereqs = (
 my %xsbuild = (
   DEFINE  => '-DHAVE_UTF8',
   OBJECT  => '$(O_FILES)',
-  CCFLAGS => Alien::Libxml2->cflags . " $Config{ccflags}",
-  LIBS    => [ Alien::Libxml2->libs ],
+  Alien::Base::Wrapper->mm_args,
 );
 
 my %WriteMakefileArgs = (
index d572b730b47a41cdda9abcc3840c1f25e35dad06..f955be23ae777e0dcd5feeddaa783f5f5b678eb8 100644 (file)
@@ -22,7 +22,7 @@
         </authorgroup>
 
 
-        <edition>2.0202</edition>
+        <edition>2.0203</edition>
         <copyright>
             <year>2001-2007</year>
             <holder>AxKit.com Ltd</holder>
index 8475146a4cb4a5d35741bf86938a07a65b4dc327..028dc87994e22bd0ae246326774b0d76fafe0331 100644 (file)
@@ -121,7 +121,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 4610ab3eef3d7531a7738d1160cedf6180e84d4e..82e067a360a9836dbda75d4fd04b284276cc98fd 100644 (file)
@@ -7,7 +7,7 @@ use Tie::Hash;
 our @ISA = qw/Tie::Hash/;
 
 use vars qw($VERSION);
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 BEGIN
 {
index 394e4fd87595b6497127488bdedee56d49ee1b9c..9994db8572d1fbaa7d97d9110d1b85eff61c41cb 100644 (file)
@@ -16,7 +16,7 @@ use warnings;
 
 use vars qw ($VERSION);
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use overload
         '""' => \&value,
index 262ac5dfc41a328969e4cac2e95b38459e6551b7..ab2c25adb810375d089dd0ae6d2bb9d52ab585ef 100644 (file)
@@ -45,7 +45,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index b6d538c76b6c0cd2088e3ddf39b706b1533ae388..64db3ced73af7c89b9c5abb4a01678bf611da055 100644 (file)
@@ -46,7 +46,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 4d9e367f6094b760ee98ca236fa47db9681d5e98..3d125ad0bb665ecc09e46e3e0b88efc7f2f31be5 100644 (file)
@@ -24,7 +24,7 @@ use vars qw( @ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 @ISA = qw(Exporter);
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use XML::LibXML qw(:libxml);
 
index 68ac16cfc7192674b18872f191400193b02c9c72..b8db374d16dae3e0635ca0d627f5a7d43cc46c74 100644 (file)
@@ -116,7 +116,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index e417a0cacadefa7eca08410040abeb5f1fb0ede4..b960ce7ae82aa9fa901b6d78277c79a7af70641e 100644 (file)
@@ -129,7 +129,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 9f8dec1fa672c29d837ac913d9ee17005b442fb6..b30fa9f01ecf1009d48cfa08a18862718c95c195 100644 (file)
@@ -12,7 +12,7 @@ use warnings;
 use XML::LibXML;
 
 use vars qw ($VERSION);
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use 5.008_000;
 
index 8b415d1091f5964dab7f400023f02eac55f04746..283f6c981661ddaa00999a42ab1051ac0b3c72be 100644 (file)
@@ -683,7 +683,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 8f42fd3d095da6658b73154f57c5d79d979c2ec8..3c81ee2169343ced43684c985c51ab3950b91007 100644 (file)
@@ -27,7 +27,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 351944a9f28fe801af3c260dc44fe9397225f3c9..c2f3b4a2fb2939895d07fbba8a89f7d5cbce8fa2 100644 (file)
@@ -89,7 +89,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 0fbe12234554bf8ee8c594a7c60ac55509e89a82..ebd12cd946943edeac7abde5a74b66d1841cf7ad 100644 (file)
@@ -382,7 +382,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index e3c5b84b5274b7e3d2c27f97c441de2a972cc69c..c658350dcaae0a03fd67feb8e2b48381c96c68e9 100644 (file)
@@ -14,7 +14,7 @@ use strict;
 use warnings;
 use vars qw($VERSION);
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use constant ERR_OK                               => 0;
 use constant ERR_INTERNAL_ERROR                   => 1;
index 575a28519f81a415c810782ec0b42b8760cfca56..f4539c986d7243bd0c69c8ebec49c1360d206a95 100644 (file)
@@ -17,7 +17,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index f6a69a935d13bde75e6766aba059bb1115a6aa18..1f618b5728e8f99014bb16c0a7f6c917f1edd9b7 100644 (file)
@@ -29,7 +29,7 @@ use overload
   fallback => 1;
 
 $WARNINGS = 0; # 0: suppress, 1: report via warn, 2: report via die
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use constant XML_ERR_NONE            => 0;
 use constant XML_ERR_WARNING         => 1; # A simple warning
index 421dd827a3fc1749ff00af7ab53e59fc4bdf8658..14e3096d937b24526773f9d7ceadf791cce648f5 100644 (file)
@@ -244,7 +244,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 0ed45197bdf45262a4a79db722d941ad628fc776..de320fdb6a37605b410443b7daf1cc2c6106c797 100644 (file)
@@ -280,7 +280,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 86da0940eae27d2aec8842e4f5467a700f95d384..f01e2be8b74afdfe0f228a3d98b91e8e8e513f28 100644 (file)
@@ -16,7 +16,7 @@ use strict;
 use warnings;
 
 use vars qw ($VERSION);
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use overload
                '""' => \&value,
index e444577a964b2c7d2ef1b2be5637755c036a113b..a2499d40a233d1c81d0521cca8a4701674663d3b 100644 (file)
@@ -141,7 +141,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 84ef18c29ed9ab8ff4a439f090a38cb0cc9fbf5c..af1425aca41dbe503183c653f79edb41a099c796 100644 (file)
@@ -763,7 +763,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index d2d0bc23a3207e49668431f1af1e2aea49a5b678..102c19d8ff95e4cd06ec67a0e6260e01b953c847 100644 (file)
@@ -17,7 +17,7 @@ use XML::LibXML::Literal;
 use XML::LibXML::Number;
 
 use vars qw($VERSION);
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use overload
         '""' => \&to_literal,
index 63b72eec45a6ecd6e61a587e2c8c93f7bfc2de64..a4fe1b6729795469e848abc46902919553befdb1 100644 (file)
@@ -14,7 +14,7 @@ use strict;
 use warnings;
 
 use vars qw ($VERSION);
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use overload
         '""' => \&value,
index 1ef5c21a49bc3e573b0a4f5da8bf48b22d9c6e62..ecb665ecbbf47a221834fb620bc70d508869d920 100644 (file)
@@ -74,7 +74,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index c91553d99089edbc4c3c2797291693c024bf7d5e..d2e916b24163c61249565a4d504083bd171af297 100644 (file)
@@ -988,7 +988,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 33be085b58a5aff033550498c74b6bbf94a84dd9..89df41116ff93c9237c4d43a05e17e05d8078568 100644 (file)
@@ -94,7 +94,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 00b249ce1b50bfec0aee7eff66f69c9548f2e2ed..a8e859d52de4194549a7ca069a371392a6d6fea3 100644 (file)
@@ -14,7 +14,7 @@ use strict;
 use warnings;
 
 use vars qw ($VERSION);
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use 5.008_000;
 
index 390e1ca0f6bf5d62192269e9f8f2c3e6915fa56a..c0947b5e2fcea9fe67cbad2c566f91bde8c9054f 100644 (file)
@@ -657,7 +657,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 9415c8819ed90f16343d8894efb1f8041857995a..9eaf52c0f66ef36d0962df733eb6b9951baeaa26 100644 (file)
@@ -58,7 +58,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 399ed055025aba0e7b611112c4ecf374567c79df..4220a1f93aa64e8ddbd66ec1049a58de51375290 100644 (file)
@@ -73,7 +73,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index f38bed7a8312b8d9b49ee39fc8e58bc0045de6af..dcc686cf87cd7b246718b8848dc4ecf901eb95aa 100644 (file)
@@ -14,7 +14,7 @@ use warnings;
 
 use vars qw($VERSION @ISA);
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 use XML::LibXML;
 use XML::SAX::Base;
index 2b2962533d731d56f1d9431f1010af2bb105c604..6473445b1348e6165bface57d1a9c1a1a8990365 100644 (file)
@@ -47,7 +47,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 2f8758b4e04768860c7cc4648821027680b18564..f51e7494afdd601c4c1a144709eff2d694c148e2 100644 (file)
@@ -21,7 +21,7 @@ sub CLONE_SKIP {
   return $XML::LibXML::__threads_shared ? 0 : 1;
 }
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 sub new {
     my $class = shift;
index bb4f6283dae441a4fb8bdcaa3a60dd584cd14435..e14b4f06f99ed9879890509e3d2288c00e35cd50 100644 (file)
@@ -38,7 +38,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 33aeed687564e4f4932843a9d1b6f752501d84ad..1261f2e7ba6bb27922647bd6eebe4f3af255b6ce 100644 (file)
@@ -15,7 +15,7 @@ use warnings;
 use XML::LibXML;
 use vars qw ($VERSION);
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 sub CLONE_SKIP {
   return $XML::LibXML::__threads_shared ? 0 : 1;
index c30bb842ba6f4280f558e634d80704c5736f8990..d29ea1057db15aa199183a36160dc3925cc1254b 100644 (file)
@@ -18,7 +18,7 @@ use XML::LibXML::Common qw(:libxml);
 use XML::SAX::Base;
 use XML::SAX::DocumentLocator;
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 @ISA = ('XML::SAX::Base');
 
 sub CLONE_SKIP {
index bc115ee3a62a1790f833ea1a4d8519abc0f7ed60..57c4fd63af7f9028b0e23a2d6cb9a98542e13d9f 100644 (file)
@@ -69,7 +69,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 2a338d9aa2624e6bd5f0f085f461b1474b6778cb..db79efdfd330ecdf01826624325c33ac65398912 100644 (file)
@@ -170,7 +170,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 6b32507ca63cdfcd8317222d0c4601d10fa90745..b0b927eb61142ad90d5ad2726d7af69a9d8c462a 100644 (file)
@@ -17,7 +17,7 @@ use Carp;
 use XML::LibXML;
 use XML::LibXML::NodeList;
 
-$VERSION = "2.0202"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0203"; # VERSION TEMPLATE: DO NOT CHANGE
 
 # should LibXML XPath data types be used for simple objects
 # when passing parameters to extension functions (default: no)
index 7556bd78ae199eeceea52d76b4ba67bad3fdbeb3..888966f0bcc25bf0fb7f0cc36add359156668c62 100644 (file)
@@ -362,7 +362,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 6be16e9ca9b3507876af440fa5f9a4fa5c582d32..907d47937ae84562f9c8e4534809d0531d155c25 100644 (file)
@@ -52,7 +52,7 @@ Petr Pajas
 
 =head1 VERSION
 
-2.0202
+2.0203
 
 =head1 COPYRIGHT
 
index 3884d605920217f283385ace10bd734fe0b5440e..18b13ba7a43f9b326dfa7c34f5c6a1af68a7b04c 100644 (file)
@@ -3,14 +3,14 @@
 use strict;
 use warnings;
 
-use File::Find::Object;
-use IO::All;
+use File::Find::Object ();
+use Path::Tiny qw/ path tempdir tempfile cwd /;
 
-my $tree = File::Find::Object->new({}, 'lib/');
+my $tree = File::Find::Object->new( {}, 'lib/' );
 
 my $version_n = shift(@ARGV);
 
-if (!defined($version_n))
+if ( !defined($version_n) )
 {
     die "Specify version number as an argument! bump-version-number.pl '0.0.1'";
 }
@@ -19,27 +19,26 @@ sub process_file
 {
     # The filename.
     my ($r) = @_;
+    my $fh = path($r);
 
-    my @lines = io->file($r)->getlines();
+    my @lines = $fh->lines_utf8;
     foreach (@lines)
     {
-        s#(\$VERSION = "|^Version )\d+\.\d+(?:\.\d+)?("|)#$1 . $version_n . $2#e;
+s#(\$VERSION = "|^Version )\d+\.\d+(?:\.\d+)?("|)#$1 . $version_n . $2#e;
     }
-    io->file($r)->print(
-        @lines
-    );
+    $fh->spew_utf8(@lines);
 }
 
 process_file('LibXML.pm');
 
-while (my $r = $tree->next()) {
-    if ($r =~ m{/\.(?:svn|hg|git)\z})
+while ( my $r = $tree->next() )
+{
+    if ( $r =~ m{/\.(?:svn|hg|git)\z} )
     {
         $tree->prune();
     }
-    elsif ($r =~ m{\.pm\z})
+    elsif ( $r =~ m{\.pm\z} )
     {
         process_file($r);
     }
 }
-
index ca08d0093a9f60d580b7636217f393d0e44533af..9c2e6f5d00c90e731db9f1ff27bd2e0e5c1bb39b 100644 (file)
@@ -3,25 +3,21 @@
 use strict;
 use warnings;
 
-use IO::All;
+use IO::All qw/ io /;
 
 my ($version) =
-    (map { m{\$VERSION *= *"([^"]+)"} ? ($1) : () }
-    io->file('LibXML.pm')->getlines()
-    )
-    ;
+    ( map { m{\$VERSION *= *"([^"]+)"} ? ($1) : () }
+        io->file('LibXML.pm')->getlines() );
 
-if (!defined ($version))
+if ( !defined($version) )
 {
     die "Version is undefined!";
 }
 
 my @cmd = (
-    "git", "tag", "-m",
-    "Tagging the XML-LibXML release as $version",
+    "git", "tag", "-m", "Tagging the XML-LibXML release as $version",
     "XML-LibXML-$version",
 );
 
-print join(" ", map { /\s/ ? qq{"$_"} : $_ } @cmd), "\n";
+print join( " ", map { /\s/ ? qq{"$_"} : $_ } @cmd ), "\n";
 exec(@cmd);
-