Fixes for the test suite on OS/2

Message-ID: <20061214023222.GA29084@powdermilk.math.berkeley.edu>

p4raw-id: //depot/perl@29578

1 files changed, 1 insertions, 1 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index 283a5a82f4..5b2de64846 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -203,7 +203,7 @@ SKIP: {
     skip "has fchown", 1 if ($Config{d_fchown} || "") eq "define";
     open(my $fh, "<", "a");
     eval { chown(0, 0, $fh); };
-    like($@, qr/^The fchown function is unimplemented at/, "fchown is unimplemented");
+    like($@, qr/^The f?chown function is unimplemented at/, "fchown is unimplemented");
 }
 
 is(rename('a','b'), 1, "rename a b");