r32406 - in /branches/upstream/libtest-base-perl/current: ./ 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 18:57:03 UTC 2009
Author: ansgar-guest
Date: Sun Mar 29 18:56:59 2009
New Revision: 32406
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32406
Log:
[svn-upgrade] Integrating new upstream version, libtest-base-perl (0.58)
Added:
branches/upstream/libtest-base-perl/current/t/undef.t
Modified:
branches/upstream/libtest-base-perl/current/Changes
branches/upstream/libtest-base-perl/current/MANIFEST
branches/upstream/libtest-base-perl/current/META.yml
branches/upstream/libtest-base-perl/current/inc/Module/Install.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/Base.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/Can.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/Win32.pm
branches/upstream/libtest-base-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/libtest-base-perl/current/lib/Test/Base.pm
Modified: branches/upstream/libtest-base-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/Changes?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/Changes (original)
+++ branches/upstream/libtest-base-perl/current/Changes Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/MANIFEST?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-base-perl/current/MANIFEST Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/META.yml?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/META.yml (original)
+++ branches/upstream/libtest-base-perl/current/META.yml Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/Base.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/Base.pm Sun Mar 29 18:56:59 2009
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.79';
+$VERSION = '0.80';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: branches/upstream/libtest-base-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/Can.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/Can.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/Fetch.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/Fetch.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/Makefile.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/Makefile.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/Metadata.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/Metadata.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/Win32.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/Win32.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/inc/Module/Install/WriteAll.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/libtest-base-perl/current/inc/Module/Install/WriteAll.pm Sun Mar 29 18:56:59 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: branches/upstream/libtest-base-perl/current/lib/Test/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/lib/Test/Base.pm?rev=32406&op=diff
==============================================================================
--- branches/upstream/libtest-base-perl/current/lib/Test/Base.pm (original)
+++ branches/upstream/libtest-base-perl/current/lib/Test/Base.pm Sun Mar 29 18:56:59 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.");
Added: branches/upstream/libtest-base-perl/current/t/undef.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-base-perl/current/t/undef.t?rev=32406&op=file
==============================================================================
--- branches/upstream/libtest-base-perl/current/t/undef.t (added)
+++ branches/upstream/libtest-base-perl/current/t/undef.t Sun Mar 29 18:56:59 2009
@@ -1,0 +1,34 @@
+use Test::Base tests => 2;
+
+filters {
+ perl => ['eval', 'bang'],
+ value => 'chomp',
+ perl2 => 'eval',
+ dummy => 'uuu',
+};
+
+run_is perl => 'value';
+run_is dummy => 'perl2';
+
+sub bang {
+ return defined($_) ? ':-(' : '!!!';
+}
+
+sub uuu {
+ undef($_);
+ return undef;
+}
+
+__DATA__
+
+
+=== No warnings for sending undef to filter
+--- perl
+undef
+--- value
+!!!
+
+=== No warnings returning undef from filter
+--- dummy
+--- perl2
+undef
More information about the Pkg-perl-cvs-commits
mailing list