TODO must be on same line as message for TAP.
authorCraig A. Berry <craigberry@mac.com>
Fri, 22 May 2009 16:37:00 +0000 (11:37 -0500)
committerDavid Mitchell <davem@iabyn.com>
Tue, 26 May 2009 21:22:23 +0000 (22:22 +0100)
Follow-up to b2978f4e665fcbbc23bf7f986d2650556cfec504

(cherry picked from commit ae8ade652800905bd8590e000023dd965b1b766b)

t/op/magic.t

index f8d0e24..9389979 100755 (executable)
@@ -355,7 +355,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);