summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/op/magic.t2
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);