[libmessage-passing-perl] 03/12: fixed test failures under Perl 5.18

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libmessage-passing-perl.

commit c9b2c9ae872d95c849cd565ec3b17ead34243ae0
Author: Alexander Hartmaier <abraxxa at cpan.org>
Date:   Tue Aug 20 13:01:04 2013 +0200

    fixed test failures under Perl 5.18
---
 Changes |    2 ++
 t/dsl.t |   11 ++++++-----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index ea71d18..8a7ef4b 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - Fix test failures under Perl 5.18
+
 0.113 2013-08-02T09:25:00+02:00
   - Add Message::Passing::Filter::Mangle for use with Message::Passing::DSL
     when you don't want to write a named filter.
diff --git a/t/dsl.t b/t/dsl.t
index 025cd42..b7c791a 100644
--- a/t/dsl.t
+++ b/t/dsl.t
@@ -46,11 +46,12 @@ $c = message_chain {
 
 is ref($c), 'ARRAY';
 is scalar(@$c), 2;
-isa_ok $c->[0], 'Message::Passing::Input::Null';
-isa_ok $c->[1], 'Message::Passing::Input::STDIN';
-isa_ok $c->[0]->output_to, 'Message::Passing::Output::STDOUT';
-isa_ok $c->[1]->output_to, 'Message::Passing::Output::STDOUT';
-is $c->[0]->output_to, $c->[1]->output_to;
+my @chain = sort @$c;
+isa_ok $chain[0], 'Message::Passing::Input::Null';
+isa_ok $chain[1], 'Message::Passing::Input::STDIN';
+isa_ok $chain[0]->output_to, 'Message::Passing::Output::STDOUT';
+isa_ok $chain[1]->output_to, 'Message::Passing::Output::STDOUT';
+is $chain[0]->output_to, $chain[1]->output_to;
 
 done_testing;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmessage-passing-perl.git