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 (executable)
--- 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);