[perl #61210] [PATCH] Fix Test::is_deeply

[via RT]

# New Ticket Created by  Vasily Chekalkin 
# Please include the string:  [perl #61210]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61210 >


Hello.

Trivial patch for is_deeply to proper call proclaim.

-- 
Bacek

commit 0ac2699b5a70a0c19bdc7477ee1c1cb7eb168797
Author: Vasily Chekalkin <[EMAIL PROTECTED]>
Date:   Tue Dec 9 21:53:16 2008 +1100

    Fix Test.pm is_deeply to call 'proclaim' properly

diff --git a/languages/perl6/Test.pm b/languages/perl6/Test.pm
index e7cf0cf..6478e49 100644
--- a/languages/perl6/Test.pm
+++ b/languages/perl6/Test.pm
@@ -147,12 +147,12 @@ multi sub eval_lives_ok($code) is export() {
 
 multi sub is_deeply($this, $that, $reason) {
     my $val = _is_deeply( $this, $that );
-    proclaim( $val, $reason, $this.perl, $that.perl );
+    proclaim($val, $reason);
 }
 
 multi sub is_deeply($this, $that) {
     my $val = _is_deeply( $this, $that );
-    proclaim( $val, '', $this.perl, $that.perl );
+    proclaim($val, '');
 }
 
 sub _is_deeply( $this, $that) {