From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 22 May 2009 16:37:00 +0000 (-0500)
Subject: TODO must be on same line as message for TAP.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae8ade652800905bd8590e000023dd965b1b766b;p=p5sagit%2Fp5-mst-13.2.git

TODO must be on same line as message for TAP.

Follow-up to b2978f4e665fcbbc23bf7f986d2650556cfec504
---

diff --git a/t/op/magic.t b/t/op/magic.t
index a2608f6..81d7142 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -354,7 +354,7 @@ SKIP: {
 {
     my $ok = 1;
     my $warn = '';
-    local $SIG{'__WARN__'} = sub { $ok = 0; $warn = join '', @_; };
+    local $SIG{'__WARN__'} = sub { $ok = 0; $warn = join '', @_; $warn =~ s/\n$//; };
     $! = undef;
     local $TODO = $Is_VMS ? "'\$!=undef' does throw a warning" : '';
     ok($ok, $warn);