From: Florian Ragwitz <rafl@debian.org>
Date: Sat, 18 Apr 2009 08:42:00 +0000 (+0000)
Subject: The extracted string should contain the newline as well.
X-Git-Tag: 0.005000~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=commitdiff_plain;h=f283a13f6101d4ac9d27d64f49a4608fc58d8ff7

The extracted string should contain the newline as well.
---

diff --git a/t/multiline-proto.t b/t/multiline-proto.t
index b549313..f6daf8a 100644
--- a/t/multiline-proto.t
+++ b/t/multiline-proto.t
@@ -21,4 +21,4 @@ use Devel::Declare fun => [ DECLARE_PROTO, \&handle_fun ];
 my $foo = fun ($a,
 $b) { "woot" };
 
-is($foo->(), '$a, $b: woot', 'proto declarator ok');
+is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok');