r65534 - in /branches/upstream/libwww-wikipedia-perl/current: ./ inc/Module/ inc/Module/Install/ lib/WWW/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sat Dec 4 16:22:26 UTC 2010
Author: ansgar
Date: Sat Dec 4 16:22:05 2010
New Revision: 65534
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65534
Log:
[svn-upgrade] new version libwww-wikipedia-perl (1.98)
Modified:
branches/upstream/libwww-wikipedia-perl/current/Changes
branches/upstream/libwww-wikipedia-perl/current/META.yml
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Base.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Can.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Scripts.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Win32.pm
branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/libwww-wikipedia-perl/current/lib/WWW/Wikipedia.pm
Modified: branches/upstream/libwww-wikipedia-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/Changes?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/Changes (original)
+++ branches/upstream/libwww-wikipedia-perl/current/Changes Sat Dec 4 16:22:05 2010
@@ -1,4 +1,7 @@
Revision history for Perl extension WWW::Wikipedia.
+
+1.98 Wed Dec 01 2010
+ - Remove newline that was attached to redirects returned by search()
1.97 Wed Jun 16 2010
- Update redirect regex due to wikipedia changes (RT #58440)
Modified: branches/upstream/libwww-wikipedia-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/META.yml?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/META.yml (original)
+++ branches/upstream/libwww-wikipedia-perl/current/META.yml Sat Dec 4 16:22:05 2010
@@ -8,7 +8,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.99'
+generated_by: 'Module::Install version 1.00'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,4 +25,4 @@
perl: 5.6.0
resources:
license: http://dev.perl.org/licenses/
-version: 1.97
+version: 1.98
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install.pm Sat Dec 4 16:22:05 2010
@@ -31,7 +31,7 @@
# 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 = '0.99';
+ $VERSION = '1.00';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -230,8 +230,12 @@
sub new {
my ($class, %args) = @_;
- delete $INC{'FindBin.pm'};
- require FindBin;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Base.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Base.pm Sat Dec 4 16:22:05 2010
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
}
# Suspend handler for "redefined" warnings
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Can.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Can.pm Sat Dec 4 16:22:05 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Fetch.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Fetch.pm Sat Dec 4 16:22:05 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Makefile.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Makefile.pm Sat Dec 4 16:22:05 2010
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Metadata.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Metadata.pm Sat Dec 4 16:22:05 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Scripts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Scripts.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Scripts.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Scripts.pm Sat Dec 4 16:22:05 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Win32.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/Win32.pm Sat Dec 4 16:22:05 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/WriteAll.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/inc/Module/Install/WriteAll.pm Sat Dec 4 16:22:05 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/libwww-wikipedia-perl/current/lib/WWW/Wikipedia.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-wikipedia-perl/current/lib/WWW/Wikipedia.pm?rev=65534&op=diff
==============================================================================
--- branches/upstream/libwww-wikipedia-perl/current/lib/WWW/Wikipedia.pm (original)
+++ branches/upstream/libwww-wikipedia-perl/current/lib/WWW/Wikipedia.pm Sat Dec 4 16:22:05 2010
@@ -8,7 +8,7 @@
use base qw( LWP::UserAgent );
-our $VERSION = '1.97';
+our $VERSION = '1.98';
use constant WIKIPEDIA_URL =>
'http://%s.wikipedia.org/w/index.php?title=%s&action=raw';
@@ -157,7 +157,7 @@
# look for a wikipedia style redirect and process if necessary
return $self->search( $1 )
if $self->follow_redirects
- && $entry->text() =~ /^#REDIRECT (.*)/is;
+ && $entry->text() =~ /^#REDIRECT ([^\r\n]+)/is;
return ( $entry );
}
More information about the Pkg-perl-cvs-commits
mailing list