t/syswrite-params.t fails on Perl 5.16.
This appears to mostly be because of some minor punctuation changes to
Perl error messages.
A patch is attached to fix the test case.
| Subject: | io-callback-error-punctuation-fix.diff |
--- IO-Callback-1.08-orig/t/syswrite-params.t 2012-07-13 09:17:52.862360830 +0100
+++ IO-Callback-1.08/t/syswrite-params.t 2012-07-13 09:26:29.608362008 +0100
@@ -73,6 +73,10 @@
if ($want eq 'died' and $got =~ /^died/) {
$got = 'died';
}
+ if ($got =~ /\.$/ and $want !~ /\.$/) {
+ chomp $want;
+ $want .= ".\n";
+ }
is( $got, $want, "$test_name results same as real file" );
my $want_contents = read_file $tmpfile;