[libwww-search-perl] 05/12: Update component WWW-Search-Ebay to 3.047.
gregor herrmann
gregoa at debian.org
Sun Jan 14 16:39:09 UTC 2018
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 <gregoa at 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
More information about the Pkg-perl-cvs-commits
mailing list