[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

Tomas Doran bobtfish at bobtfish.net
Mon May 6 11:56:46 UTC 2013


The following commit has been merged in the master branch:
commit c8027cd64b28ab5f31930ed0991da5716a3813e4
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Thu Mar 22 23:44:59 2012 +0000

    Fix using Filter::T in the DSL

diff --git a/Changes b/Changes
index b13dd7b..f6e1561 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+    - Fix issue using Filter::T in the DSL
+
 0.001
     - Initial version.
 
diff --git a/lib/Log/Stash/DSL/Factory.pm b/lib/Log/Stash/DSL/Factory.pm
index 917b669..f3755b0 100644
--- a/lib/Log/Stash/DSL/Factory.pm
+++ b/lib/Log/Stash/DSL/Factory.pm
@@ -43,8 +43,8 @@ sub make {
                     push(@out, $name_or_thing);
                 }
                 else {
-                    my $thing = $self->registry_get($name)
-                        || confess("Do not have a component named '$name'");
+                    my $thing = $self->registry_get($name_or_thing)
+                        || confess("Do not have a component named '$name_or_thing'");
                     push(@out, $thing);
                 }
             }
diff --git a/t/author/spelling.t b/t/author/spelling.t
index 1e30bd9..d273def 100644
--- a/t/author/spelling.t
+++ b/t/author/spelling.t
@@ -4,6 +4,8 @@ use Test::More;
 use Test::Spelling;
 
 add_stopwords(qw(
+    SureVoIP
+    VoIP
     Starman
     ZeroMQ
     API
diff --git a/t/dsl.t b/t/dsl.t
index a6ec464..462f8fc 100644
--- a/t/dsl.t
+++ b/t/dsl.t
@@ -8,9 +8,13 @@ my $c = log_chain {
         output test => (
             class => 'Test',
         );
+        filter t => (
+            class => 'T',
+            output_to => ['test'],
+        );
         filter null => (
             class => 'Null',
-            output_to => 'test',
+            output_to => 't',
         );
         input stdin => (
             class => 'STDIN',
@@ -19,9 +23,10 @@ my $c = log_chain {
 };
 isa_ok $c, 'Log::Stash::Input::STDIN';
 isa_ok $c->output_to, 'Log::Stash::Filter::Null';
-isa_ok $c->output_to->output_to, 'Log::Stash::Output::Test';
+isa_ok $c->output_to->output_to, 'Log::Stash::Filter::T';
+isa_ok $c->output_to->output_to->output_to->[0], 'Log::Stash::Output::Test';
 $c->output_to->consume({foo => 'bar'});
-my $test = $c->output_to->output_to;
+my $test = $c->output_to->output_to->output_to->[0];
 is $test->message_count, 1;
 is_deeply [$test->messages], [{foo => 'bar'}];
 

-- 
libmessage-passing-perl Debian packaging



More information about the Pkg-perl-cvs-commits mailing list