diff -Naur -x '*~' Perl6-Slurp-0.03/t/errors.t Perl6-Slurp-0.03-fix-tests/t/errors.t
--- Perl6-Slurp-0.03/t/errors.t	2004-03-01 03:16:37.000000000 +0100
+++ Perl6-Slurp-0.03-fix-tests/t/errors.t	2009-08-23 13:54:19.000000000 +0200
@@ -17,7 +17,7 @@
 eval{slurp "non-existent file"}
 	? ok 0, $desc
 	: like $@,
-		   qr/^Can't open 'non-existent file': No such file or directory/,
+		   qr/^Can't open 'non-existent file'/,
 		   $desc;
 
 TEST "shouldn't be able to read from unreadable filehandle";