APItest/t/utf8_warn_base.pl: Store warnings sans \n
authorKarl Williamson <khw@cpan.org>
Sat, 17 Jun 2017 12:27:59 +0000 (06:27 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:24 +0000 (21:14 -0600)
This will make the output more legible that future commits will create

ext/XS-APItest/t/utf8_warn_base.pl

index 1077fb6..03f673d 100644 (file)
@@ -22,7 +22,9 @@ use Data::Dumper;
 my @warnings_gotten;
 
 use warnings 'utf8';
-local $SIG{__WARN__} = sub { push @warnings_gotten, @_ };
+local $SIG{__WARN__} = sub { my @copy = @_;
+                             push @warnings_gotten, map { chomp; $_ } @copy;
+                           };
 
 sub nonportable_regex ($) {