r32409 - in /trunk/libtest-base-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/Test/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Mar 29 19:12:08 UTC 2009
Author: ansgar-guest
Date: Sun Mar 29 19:12:04 2009
New Revision: 32409
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32409
Log:
* New upstream release.
* Set Standards-Version to 3.8.1 (no changes).
Added:
trunk/libtest-base-perl/t/undef.t
- copied unchanged from r32407, branches/upstream/libtest-base-perl/current/t/undef.t
Modified:
trunk/libtest-base-perl/Changes
trunk/libtest-base-perl/MANIFEST
trunk/libtest-base-perl/META.yml
trunk/libtest-base-perl/debian/changelog
trunk/libtest-base-perl/debian/control
trunk/libtest-base-perl/inc/Module/Install.pm
trunk/libtest-base-perl/inc/Module/Install/Base.pm
trunk/libtest-base-perl/inc/Module/Install/Can.pm
trunk/libtest-base-perl/inc/Module/Install/Fetch.pm
trunk/libtest-base-perl/inc/Module/Install/Makefile.pm
trunk/libtest-base-perl/inc/Module/Install/Metadata.pm
trunk/libtest-base-perl/inc/Module/Install/Win32.pm
trunk/libtest-base-perl/inc/Module/Install/WriteAll.pm
trunk/libtest-base-perl/lib/Test/Base.pm
Modified: trunk/libtest-base-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/Changes?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/Changes (original)
+++ trunk/libtest-base-perl/Changes Sun Mar 29 19:12:04 2009
@@ -1,3 +1,13 @@
+---
+version: 0.58
+date: Thu Mar 26 17:26:13 PDT 2009
+changes:
+- Another undef filtering change.
+---
+version: 0.57
+date: Thu Mar 26 16:42:03 PDT 2009
+changes:
+- Allow value of undef to be filtered without warnings.
---
version: 0.56
date: Sat Mar 7 12:13:32 PST 2009
Modified: trunk/libtest-base-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/MANIFEST?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/MANIFEST (original)
+++ trunk/libtest-base-perl/MANIFEST Sun Mar 29 19:12:04 2009
@@ -124,6 +124,7 @@
t/tie_output.t
t/trim.t
t/unchomp.t
+t/undef.t
t/use-test-more.t
t/write_file.t
t/xxx.t
Modified: trunk/libtest-base-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/META.yml?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/META.yml (original)
+++ trunk/libtest-base-perl/META.yml Sun Mar 29 19:12:04 2009
@@ -3,7 +3,7 @@
author:
- 'Ingy döt Net <ingy at cpan.org>'
distribution_type: module
-generated_by: 'Module::Install version 0.79'
+generated_by: 'Module::Install version 0.80'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,4 +22,4 @@
perl: 5.6.1
resources:
license: http://dev.perl.org/licenses/
-version: 0.56
+version: 0.58
Modified: trunk/libtest-base-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/debian/changelog?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/debian/changelog (original)
+++ trunk/libtest-base-perl/debian/changelog Sun Mar 29 19:12:04 2009
@@ -1,3 +1,10 @@
+libtest-base-perl (0.58-1) unstable; urgency=low
+
+ * New upstream release.
+ * Set Standards-Version to 3.8.1 (no changes).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 29 Mar 2009 21:11:29 +0200
+
libtest-base-perl (0.56-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libtest-base-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/debian/control?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/debian/control (original)
+++ trunk/libtest-base-perl/debian/control Sun Mar 29 19:12:04 2009
@@ -9,7 +9,7 @@
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Florian Ragwitz <rafl at debian.org>, Damyan Ivanov <dmn at debian.org>,
gregor herrmann <gregoa at debian.org>, Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.0
+Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/Test-Base/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtest-base-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtest-base-perl/
Modified: trunk/libtest-base-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install.pm Sun Mar 29 19:12:04 2009
@@ -30,7 +30,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.79';
+ $VERSION = '0.80';
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
@@ -360,7 +360,7 @@
and
! ref $_[0]
and
- $_[0] =~ m/^[^\W\d]\w*(?:::\w+)*$/s
+ $_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
) ? $_[0] : undef;
}
Modified: trunk/libtest-base-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/Base.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/Base.pm Sun Mar 29 19:12:04 2009
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.79';
+$VERSION = '0.80';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: trunk/libtest-base-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/Can.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/Can.pm Sun Mar 29 19:12:04 2009
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.79';
+ $VERSION = '0.80';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libtest-base-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/Fetch.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/Fetch.pm Sun Mar 29 19:12:04 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.79';
+ $VERSION = '0.80';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libtest-base-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/Makefile.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/Makefile.pm Sun Mar 29 19:12:04 2009
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.79';
+ $VERSION = '0.80';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libtest-base-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/Metadata.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/Metadata.pm Sun Mar 29 19:12:04 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.79';
+ $VERSION = '0.80';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -508,6 +508,11 @@
# If there's no existing META.yml there is nothing we can do
return unless -f 'META.yml';
+ # We need YAML::Tiny to write the MYMETA.yml file
+ unless ( eval { require YAML::Tiny; 1; } ) {
+ return 1;
+ }
+
# Merge the perl version into the dependencies
my $val = $self->Meta->{values};
my $perl = delete $val->{perl_version};
@@ -523,7 +528,6 @@
}
# Load the advisory META.yml file
- require YAML::Tiny;
my @yaml = YAML::Tiny::LoadFile('META.yml');
my $meta = $yaml[0];
Modified: trunk/libtest-base-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/Win32.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/Win32.pm Sun Mar 29 19:12:04 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.79';
+ $VERSION = '0.80';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libtest-base-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/inc/Module/Install/WriteAll.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libtest-base-perl/inc/Module/Install/WriteAll.pm Sun Mar 29 19:12:04 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.79';
+ $VERSION = '0.80';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libtest-base-perl/lib/Test/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-base-perl/lib/Test/Base.pm?rev=32409&op=diff
==============================================================================
--- trunk/libtest-base-perl/lib/Test/Base.pm (original)
+++ trunk/libtest-base-perl/lib/Test/Base.pm Sun Mar 29 19:12:04 2009
@@ -4,7 +4,7 @@
use 5.006001;
use Spiffy 0.30 -Base;
use Spiffy ':XXX';
-our $VERSION = '0.56';
+our $VERSION = '0.58';
my @test_more_exports;
BEGIN {
@@ -613,11 +613,13 @@
my $function = "main::$filter";
no strict 'refs';
if (defined &$function) {
- local $_ = join '', @value;
+ local $_ =
+ (@value == 1 and not defined($value[0])) ? undef :
+ join '', @value;
my $old = $_;
@value = &$function(@value);
if (not(@value) or
- @value == 1 and $value[0] =~ /\A(\d+|)\z/
+ @value == 1 and defined($value[0]) and $value[0] =~ /\A(\d+|)\z/
) {
if ($value[0] && $_ eq $old) {
Test::Base::diag("Filters returning numbers are supposed to do munging \$_: your filter '$function' apparently doesn't.");
More information about the Pkg-perl-cvs-commits
mailing list