diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-05-22 11:37:00 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-05-22 11:37:00 -0500 |
| commit | ae8ade652800905bd8590e000023dd965b1b766b (patch) | |
| tree | b398abd7800233b2f67290af55e9e7c0b9972f3d /t | |
| parent | 58a26b1261706b3fb21352c450891808565259c4 (diff) | |
| download | perl-ae8ade652800905bd8590e000023dd965b1b766b.tar.gz | |
TODO must be on same line as message for TAP.
Follow-up to b2978f4e665fcbbc23bf7f986d2650556cfec504
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/magic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index a2608f63b1..81d7142cd7 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); |