diff options
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); |