Honor trailing \n in messages, as is done for warn().

diff --git a/lib/Carp.pm b/lib/Carp.pm
index ba21d9c..2d857ba 100644 (file)
--- a/lib/Carp.pm
+++ b/lib/Carp.pm
@@ -39,8 +39,12 @@ sub longmess {
     my $i = 1 + $CarpLevel;
     my ($pack,$file,$line,$sub);
     while (($pack,$file,$line,$sub) = caller($i++)) {
-       $mess .= "\t$sub " if $error eq "called";
-       $mess .= "$error at $file line $line\n";
+       if ($error =~ m/\n$/) {
+           $mess .= $error;
+       } else {
+           $mess .= "\t$sub " if $error eq "called";
+           $mess .= "$error at $file line $line\n";
+       }
        $error = "called";
     }
     $mess || $error;