diff options
| author | DongHun Kwak <dh0128.kwak@samsung.com> | 2022-07-25 08:44:29 +0900 |
|---|---|---|
| committer | DongHun Kwak <dh0128.kwak@samsung.com> | 2022-07-25 08:44:29 +0900 |
| commit | 33aca7f7001cb7b7fa285778f86b96b4dae871fe (patch) | |
| tree | cd3daca1aa5921c011d012244646d4582405cbf8 | |
| parent | 386653a5f530a4e00811bacc50ae734d5610695d (diff) | |
| download | perl-XML-LibXML-33aca7f7001cb7b7fa285778f86b96b4dae871fe.tar.gz perl-XML-LibXML-33aca7f7001cb7b7fa285778f86b96b4dae871fe.tar.bz2 perl-XML-LibXML-33aca7f7001cb7b7fa285778f86b96b4dae871fe.zip | |
Imported Upstream version 2.0203upstream/2.0203
50 files changed, 77 insertions, 75 deletions
@@ -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 @@ -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; @@ -507,7 +507,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT @@ -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" } @@ -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' diff --git a/Makefile.PL b/Makefile.PL index aba6b8e..138b86f 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -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 = ( diff --git a/docs/libxml.dbk b/docs/libxml.dbk index d572b73..f955be2 100644 --- a/docs/libxml.dbk +++ b/docs/libxml.dbk @@ -22,7 +22,7 @@ </authorgroup> - <edition>2.0202</edition> + <edition>2.0203</edition> <copyright> <year>2001-2007</year> <holder>AxKit.com Ltd</holder> diff --git a/lib/XML/LibXML/Attr.pod b/lib/XML/LibXML/Attr.pod index 8475146..028dc87 100644 --- a/lib/XML/LibXML/Attr.pod +++ b/lib/XML/LibXML/Attr.pod @@ -121,7 +121,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/AttributeHash.pm b/lib/XML/LibXML/AttributeHash.pm index 4610ab3..82e067a 100644 --- a/lib/XML/LibXML/AttributeHash.pm +++ b/lib/XML/LibXML/AttributeHash.pm @@ -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 { diff --git a/lib/XML/LibXML/Boolean.pm b/lib/XML/LibXML/Boolean.pm index 394e4fd..9994db8 100644 --- a/lib/XML/LibXML/Boolean.pm +++ b/lib/XML/LibXML/Boolean.pm @@ -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, diff --git a/lib/XML/LibXML/CDATASection.pod b/lib/XML/LibXML/CDATASection.pod index 262ac5d..ab2c25a 100644 --- a/lib/XML/LibXML/CDATASection.pod +++ b/lib/XML/LibXML/CDATASection.pod @@ -45,7 +45,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Comment.pod b/lib/XML/LibXML/Comment.pod index b6d538c..64db3ce 100644 --- a/lib/XML/LibXML/Comment.pod +++ b/lib/XML/LibXML/Comment.pod @@ -46,7 +46,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Common.pm b/lib/XML/LibXML/Common.pm index 4d9e367..3d125ad 100644 --- a/lib/XML/LibXML/Common.pm +++ b/lib/XML/LibXML/Common.pm @@ -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); diff --git a/lib/XML/LibXML/Common.pod b/lib/XML/LibXML/Common.pod index 68ac16c..b8db374 100644 --- a/lib/XML/LibXML/Common.pod +++ b/lib/XML/LibXML/Common.pod @@ -116,7 +116,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/DOM.pod b/lib/XML/LibXML/DOM.pod index e417a0c..b960ce7 100644 --- a/lib/XML/LibXML/DOM.pod +++ b/lib/XML/LibXML/DOM.pod @@ -129,7 +129,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Devel.pm b/lib/XML/LibXML/Devel.pm index 9f8dec1..b30fa9f 100644 --- a/lib/XML/LibXML/Devel.pm +++ b/lib/XML/LibXML/Devel.pm @@ -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; diff --git a/lib/XML/LibXML/Document.pod b/lib/XML/LibXML/Document.pod index 8b415d1..283f6c9 100644 --- a/lib/XML/LibXML/Document.pod +++ b/lib/XML/LibXML/Document.pod @@ -683,7 +683,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/DocumentFragment.pod b/lib/XML/LibXML/DocumentFragment.pod index 8f42fd3..3c81ee2 100644 --- a/lib/XML/LibXML/DocumentFragment.pod +++ b/lib/XML/LibXML/DocumentFragment.pod @@ -27,7 +27,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Dtd.pod b/lib/XML/LibXML/Dtd.pod index 351944a..c2f3b4a 100644 --- a/lib/XML/LibXML/Dtd.pod +++ b/lib/XML/LibXML/Dtd.pod @@ -89,7 +89,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Element.pod b/lib/XML/LibXML/Element.pod index 0fbe122..ebd12cd 100644 --- a/lib/XML/LibXML/Element.pod +++ b/lib/XML/LibXML/Element.pod @@ -382,7 +382,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/ErrNo.pm b/lib/XML/LibXML/ErrNo.pm index e3c5b84..c658350 100644 --- a/lib/XML/LibXML/ErrNo.pm +++ b/lib/XML/LibXML/ErrNo.pm @@ -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; diff --git a/lib/XML/LibXML/ErrNo.pod b/lib/XML/LibXML/ErrNo.pod index 575a285..f4539c9 100644 --- a/lib/XML/LibXML/ErrNo.pod +++ b/lib/XML/LibXML/ErrNo.pod @@ -17,7 +17,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Error.pm b/lib/XML/LibXML/Error.pm index f6a69a9..1f618b5 100644 --- a/lib/XML/LibXML/Error.pm +++ b/lib/XML/LibXML/Error.pm @@ -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 diff --git a/lib/XML/LibXML/Error.pod b/lib/XML/LibXML/Error.pod index 421dd82..14e3096 100644 --- a/lib/XML/LibXML/Error.pod +++ b/lib/XML/LibXML/Error.pod @@ -244,7 +244,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/InputCallback.pod b/lib/XML/LibXML/InputCallback.pod index 0ed4519..de320fd 100644 --- a/lib/XML/LibXML/InputCallback.pod +++ b/lib/XML/LibXML/InputCallback.pod @@ -280,7 +280,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Literal.pm b/lib/XML/LibXML/Literal.pm index 86da094..f01e2be 100644 --- a/lib/XML/LibXML/Literal.pm +++ b/lib/XML/LibXML/Literal.pm @@ -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, diff --git a/lib/XML/LibXML/Namespace.pod b/lib/XML/LibXML/Namespace.pod index e444577..a2499d4 100644 --- a/lib/XML/LibXML/Namespace.pod +++ b/lib/XML/LibXML/Namespace.pod @@ -141,7 +141,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Node.pod b/lib/XML/LibXML/Node.pod index 84ef18c..af1425a 100644 --- a/lib/XML/LibXML/Node.pod +++ b/lib/XML/LibXML/Node.pod @@ -763,7 +763,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/NodeList.pm b/lib/XML/LibXML/NodeList.pm index d2d0bc2..102c19d 100644 --- a/lib/XML/LibXML/NodeList.pm +++ b/lib/XML/LibXML/NodeList.pm @@ -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, diff --git a/lib/XML/LibXML/Number.pm b/lib/XML/LibXML/Number.pm index 63b72ee..a4fe1b6 100644 --- a/lib/XML/LibXML/Number.pm +++ b/lib/XML/LibXML/Number.pm @@ -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, diff --git a/lib/XML/LibXML/PI.pod b/lib/XML/LibXML/PI.pod index 1ef5c21..ecb665e 100644 --- a/lib/XML/LibXML/PI.pod +++ b/lib/XML/LibXML/PI.pod @@ -74,7 +74,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Parser.pod b/lib/XML/LibXML/Parser.pod index c91553d..d2e916b 100644 --- a/lib/XML/LibXML/Parser.pod +++ b/lib/XML/LibXML/Parser.pod @@ -988,7 +988,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Pattern.pod b/lib/XML/LibXML/Pattern.pod index 33be085..89df411 100644 --- a/lib/XML/LibXML/Pattern.pod +++ b/lib/XML/LibXML/Pattern.pod @@ -94,7 +94,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Reader.pm b/lib/XML/LibXML/Reader.pm index 00b249c..a8e859d 100644 --- a/lib/XML/LibXML/Reader.pm +++ b/lib/XML/LibXML/Reader.pm @@ -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; diff --git a/lib/XML/LibXML/Reader.pod b/lib/XML/LibXML/Reader.pod index 390e1ca..c0947b5 100644 --- a/lib/XML/LibXML/Reader.pod +++ b/lib/XML/LibXML/Reader.pod @@ -657,7 +657,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/RegExp.pod b/lib/XML/LibXML/RegExp.pod index 9415c88..9eaf52c 100644 --- a/lib/XML/LibXML/RegExp.pod +++ b/lib/XML/LibXML/RegExp.pod @@ -58,7 +58,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/RelaxNG.pod b/lib/XML/LibXML/RelaxNG.pod index 399ed05..4220a1f 100644 --- a/lib/XML/LibXML/RelaxNG.pod +++ b/lib/XML/LibXML/RelaxNG.pod @@ -73,7 +73,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/SAX.pm b/lib/XML/LibXML/SAX.pm index f38bed7..dcc686c 100644 --- a/lib/XML/LibXML/SAX.pm +++ b/lib/XML/LibXML/SAX.pm @@ -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; diff --git a/lib/XML/LibXML/SAX.pod b/lib/XML/LibXML/SAX.pod index 2b29625..6473445 100644 --- a/lib/XML/LibXML/SAX.pod +++ b/lib/XML/LibXML/SAX.pod @@ -47,7 +47,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/SAX/Builder.pm b/lib/XML/LibXML/SAX/Builder.pm index 2f8758b..f51e749 100644 --- a/lib/XML/LibXML/SAX/Builder.pm +++ b/lib/XML/LibXML/SAX/Builder.pm @@ -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; diff --git a/lib/XML/LibXML/SAX/Builder.pod b/lib/XML/LibXML/SAX/Builder.pod index bb4f628..e14b4f0 100644 --- a/lib/XML/LibXML/SAX/Builder.pod +++ b/lib/XML/LibXML/SAX/Builder.pod @@ -38,7 +38,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/SAX/Generator.pm b/lib/XML/LibXML/SAX/Generator.pm index 33aeed6..1261f2e 100644 --- a/lib/XML/LibXML/SAX/Generator.pm +++ b/lib/XML/LibXML/SAX/Generator.pm @@ -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; diff --git a/lib/XML/LibXML/SAX/Parser.pm b/lib/XML/LibXML/SAX/Parser.pm index c30bb84..d29ea10 100644 --- a/lib/XML/LibXML/SAX/Parser.pm +++ b/lib/XML/LibXML/SAX/Parser.pm @@ -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 { diff --git a/lib/XML/LibXML/Schema.pod b/lib/XML/LibXML/Schema.pod index bc115ee..57c4fd6 100644 --- a/lib/XML/LibXML/Schema.pod +++ b/lib/XML/LibXML/Schema.pod @@ -69,7 +69,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/Text.pod b/lib/XML/LibXML/Text.pod index 2a338d9..db79efd 100644 --- a/lib/XML/LibXML/Text.pod +++ b/lib/XML/LibXML/Text.pod @@ -170,7 +170,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/XPathContext.pm b/lib/XML/LibXML/XPathContext.pm index 6b32507..b0b927e 100644 --- a/lib/XML/LibXML/XPathContext.pm +++ b/lib/XML/LibXML/XPathContext.pm @@ -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) diff --git a/lib/XML/LibXML/XPathContext.pod b/lib/XML/LibXML/XPathContext.pod index 7556bd7..888966f 100644 --- a/lib/XML/LibXML/XPathContext.pod +++ b/lib/XML/LibXML/XPathContext.pod @@ -362,7 +362,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/lib/XML/LibXML/XPathExpression.pod b/lib/XML/LibXML/XPathExpression.pod index 6be16e9..907d479 100644 --- a/lib/XML/LibXML/XPathExpression.pod +++ b/lib/XML/LibXML/XPathExpression.pod @@ -52,7 +52,7 @@ Petr Pajas =head1 VERSION -2.0202 +2.0203 =head1 COPYRIGHT diff --git a/scripts/bump-version-number.pl b/scripts/bump-version-number.pl index 3884d60..18b13ba 100644 --- a/scripts/bump-version-number.pl +++ b/scripts/bump-version-number.pl @@ -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); } } - diff --git a/scripts/tag-release.pl b/scripts/tag-release.pl index ca08d00..9c2e6f5 100644 --- a/scripts/tag-release.pl +++ b/scripts/tag-release.pl @@ -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); - |