X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fhandle.t;h=4f26847ebf98348319f689f278d294c4a962fbd6;hb=12444d55c2adf5750309cf8afdb16f9b247fd227;hp=5e1cd15b696fbd5a6e6d2baf6509d17839fbbea8;hpb=339c18216443e9e8b0b6183747fe325d6774baae;p=urisagit%2FPerl-Docs.git

diff --git a/t/handle.t b/t/handle.t
index 5e1cd15..4f26847 100644
--- a/t/handle.t
+++ b/t/handle.t
@@ -46,7 +46,7 @@ sub test_socketpair_slurp {
 
 		socketpair( $read_fh, $write_fh,
 				AF_UNIX, SOCK_STREAM, PF_UNSPEC);
-                
+
 		if ( fork() ) {
 
 #warn "PARENT SOCKET\n" ;
@@ -62,7 +62,7 @@ sub test_socketpair_slurp {
 #child
 #warn "CHILD SOCKET\n" ;
 			close( $read_fh ) ;
-			write_file( $write_fh, $data ) ;
+			eval { write_file( $write_fh, $data ) } ;
 			exit() ;
 		}
 	}