From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Thu, 14 Jan 2010 14:48:23 +0000 (+0000)
Subject: Fixed tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb92c7667b2747525c85274e2ca8a9996b44c402;p=p5sagit%2Fp5-mst-13.2.git

Fixed tests.
---

diff --git a/dist/Safe/t/safesort.t b/dist/Safe/t/safesort.t
index f2b7ed0..5ba2685 100644
--- a/dist/Safe/t/safesort.t
+++ b/dist/Safe/t/safesort.t
@@ -19,7 +19,7 @@ my $func = $safe->reval(q{ sub { @_ } });
 is_deeply [ $func->() ], [ ];
 is_deeply [ $func->("foo") ], [ "foo" ];
 
-my $func = $safe->reval(<<'EOS');
+$func = $safe->reval(<<'EOS');
 
     # uses quotes in { "$a" <=> $b } to avoid the optimizer replacing the block
     # with a hardwired comparison
@@ -33,6 +33,6 @@ EOS
 is $@, '', 'reval should not fail';
 is ref $func, 'CODE', 'reval should return a CODE ref';
 
-my ($l_sorted, $p_sorted) = $func->(@_);
+my ($l_sorted, $p_sorted) = $func->(1,2,3);
 is $l_sorted, "1,2,3";
 is $p_sorted, "1,2,3";