This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to branch master in repository libwww-search-perl.
commit 8c4658c553b2815583f4ef823043aa876e3711d4 Author: gregor herrmann <gre...@debian.org> Date: Sun Jan 14 17:17:04 2018 +0100 Update component WWW-Search-Ebay to 3.047. --- debian/components/ebay/version | 2 +- ebay/MANIFEST | 2 +- ebay/META.yml | 4 ++-- ebay/Makefile.PL | 2 +- ebay/inc/Module/Install.pm | 35 ++++++----------------------------- ebay/inc/Module/Install/Base.pm | 2 +- ebay/inc/Module/Install/Can.pm | 13 +++++++++++-- ebay/inc/Module/Install/Fetch.pm | 2 +- ebay/inc/Module/Install/Makefile.pm | 2 +- ebay/inc/Module/Install/Metadata.pm | 2 +- ebay/inc/Module/Install/Win32.pm | 2 +- ebay/inc/Module/Install/WriteAll.pm | 2 +- ebay/t/category.t | 9 ++++++--- 13 files changed, 34 insertions(+), 45 deletions(-) diff --git a/debian/components/ebay/version b/debian/components/ebay/version index 7801827..3abf9cc 100644 --- a/debian/components/ebay/version +++ b/debian/components/ebay/version @@ -1 +1 @@ -3.046 +3.047 diff --git a/ebay/MANIFEST b/ebay/MANIFEST index 32603a9..9dd32e7 100644 --- a/ebay/MANIFEST +++ b/ebay/MANIFEST @@ -18,7 +18,7 @@ lib/WWW/Search/Ebay/Motors.pm lib/WWW/Search/Ebay/Stores.pm LICENSE Makefile.PL -MANIFEST +MANIFEST This list of files META.yml README README.md diff --git a/ebay/META.yml b/ebay/META.yml index 5c4fcf9..b8d81d8 100644 --- a/ebay/META.yml +++ b/ebay/META.yml @@ -13,7 +13,7 @@ configure_requires: ExtUtils::MakeMaker: 6.36 distribution_type: module dynamic_config: 1 -generated_by: 'Module::Install version 1.16' +generated_by: 'Module::Install version 1.18' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -34,4 +34,4 @@ requires: perl: 5.005 resources: license: http://dev.perl.org/licenses/ -version: 3.046 +version: 3.047 diff --git a/ebay/Makefile.PL b/ebay/Makefile.PL index ba2ea8a..b922cc5 100644 --- a/ebay/Makefile.PL +++ b/ebay/Makefile.PL @@ -3,7 +3,7 @@ use inc::Module::Install; -version(3.046); +version(3.047); all_from('lib/WWW/Search/Ebay.pm'); requires(perl => 5.005); diff --git a/ebay/inc/Module/Install.pm b/ebay/inc/Module/Install.pm index f44ab4d..07525c5 100644 --- a/ebay/inc/Module/Install.pm +++ b/ebay/inc/Module/Install.pm @@ -31,7 +31,7 @@ BEGIN { # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.16'; + $VERSION = '1.18'; # Storage for the pseudo-singleton $MAIN = undef; @@ -244,6 +244,8 @@ sub new { } return $args{_self} if $args{_self}; + $base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS'; + $args{dispatch} ||= 'Admin'; $args{prefix} ||= 'inc'; $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author'); @@ -322,7 +324,7 @@ sub find_extensions { my ($self, $path) = @_; my @found; - File::Find::find( sub { + File::Find::find( {no_chdir => 1, wanted => sub { my $file = $File::Find::name; return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is; my $subpath = $1; @@ -336,7 +338,7 @@ sub find_extensions { # correctly. Otherwise, root through the file to locate the case-preserved # version of the package name. if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { - my $content = Module::Install::_read($subpath . '.pm'); + my $content = Module::Install::_read($File::Find::name); my $in_pod = 0; foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; @@ -351,7 +353,7 @@ sub find_extensions { } push @found, [ $file, $pkg ]; - }, $path ) if -d $path; + }}, $path ) if -d $path; @found; } @@ -373,8 +375,6 @@ sub _caller { return $call; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _read { local *FH; open( FH, '<', $_[0] ) or die "open($_[0]): $!"; @@ -383,16 +383,6 @@ sub _read { close FH or die "close($_[0]): $!"; return $string; } -END_NEW -sub _read { - local *FH; - open( FH, "< $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - my $string = do { local $/; <FH> }; - close FH or die "close($_[0]): $!"; - return $string; -} -END_OLD sub _readperl { my $string = Module::Install::_read($_[0]); @@ -413,8 +403,6 @@ sub _readpod { return $string; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _write { local *FH; open( FH, '>', $_[0] ) or die "open($_[0]): $!"; @@ -424,17 +412,6 @@ sub _write { } close FH or die "close($_[0]): $!"; } -END_NEW -sub _write { - local *FH; - open( FH, "> $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - foreach ( 1 .. $#_ ) { - print FH $_[$_] or die "print($_[0]): $!"; - } - close FH or die "close($_[0]): $!"; -} -END_OLD # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). diff --git a/ebay/inc/Module/Install/Base.pm b/ebay/inc/Module/Install/Base.pm index 5762a74..b61d424 100644 --- a/ebay/inc/Module/Install/Base.pm +++ b/ebay/inc/Module/Install/Base.pm @@ -4,7 +4,7 @@ package Module::Install::Base; use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; } # Suspend handler for "redefined" warnings diff --git a/ebay/inc/Module/Install/Can.pm b/ebay/inc/Module/Install/Can.pm index d859276..1de368c 100644 --- a/ebay/inc/Module/Install/Can.pm +++ b/ebay/inc/Module/Install/Can.pm @@ -8,7 +8,7 @@ use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -121,6 +121,15 @@ END_C # Can we locate a (the) C compiler sub can_cc { my $self = shift; + + if ($^O eq 'VMS') { + require ExtUtils::CBuilder; + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + return $builder->have_compiler; + } + my @chunks = split(/ /, $Config::Config{cc}) or return; # $Config{cc} may contain args; try to find out the program part @@ -151,4 +160,4 @@ if ( $^O eq 'cygwin' ) { __END__ -#line 236 +#line 245 diff --git a/ebay/inc/Module/Install/Fetch.pm b/ebay/inc/Module/Install/Fetch.pm index 41d3517..54b52cb 100644 --- a/ebay/inc/Module/Install/Fetch.pm +++ b/ebay/inc/Module/Install/Fetch.pm @@ -6,7 +6,7 @@ use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff --git a/ebay/inc/Module/Install/Makefile.pm b/ebay/inc/Module/Install/Makefile.pm index e9918d2..8ba3d88 100644 --- a/ebay/inc/Module/Install/Makefile.pm +++ b/ebay/inc/Module/Install/Makefile.pm @@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/; use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff --git a/ebay/inc/Module/Install/Metadata.pm b/ebay/inc/Module/Install/Metadata.pm index 9792685..692ce71 100644 --- a/ebay/inc/Module/Install/Metadata.pm +++ b/ebay/inc/Module/Install/Metadata.pm @@ -6,7 +6,7 @@ use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff --git a/ebay/inc/Module/Install/Win32.pm b/ebay/inc/Module/Install/Win32.pm index 218a66b..b80c900 100644 --- a/ebay/inc/Module/Install/Win32.pm +++ b/ebay/inc/Module/Install/Win32.pm @@ -6,7 +6,7 @@ use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff --git a/ebay/inc/Module/Install/WriteAll.pm b/ebay/inc/Module/Install/WriteAll.pm index 530749b..da279c7 100644 --- a/ebay/inc/Module/Install/WriteAll.pm +++ b/ebay/inc/Module/Install/WriteAll.pm @@ -6,7 +6,7 @@ use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.18'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff --git a/ebay/t/category.t b/ebay/t/category.t index 95d3b2c..6d62ab2 100644 --- a/ebay/t/category.t +++ b/ebay/t/category.t @@ -1,10 +1,13 @@ -# $Id: category.t,v 1.3 2013-03-03 03:42:41 Martin Exp $ +use warnings; +use strict; + +my $VERSION = 1.04; use blib; use Bit::Vector; use Data::Dumper; -use Test::More no_plan; +use Test::More 'no_plan'; use WWW::Search::Test; BEGIN @@ -61,7 +64,7 @@ $oV->Fill; $iVall = $oV->to_Dec; foreach my $oResult (@ao) { - $oV->Bit_Off(0) unless like($oResult->url, qr{\Ahttp://(cgi|www)\d*\.ebay\.com}, + $oV->Bit_Off(0) unless like($oResult->url, qr{\Ahttps?://[^.]+\.ebay\.com}, 'result URL is really from ebay.com'); $oV->Bit_Off(1) unless cmp_ok($oResult->title, 'ne', '', 'result Title is not empty'); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libwww-search-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits