X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=fifowatcher.ml;h=46771a8cc0605933c4c8a4afcadcfbd10ad6dad9;hb=86fd747228605ac982394426c8b65c4a327f0b1f;hp=7871821a4ffd078fcfc98b1a18adc67eed3bf425;hpb=892d26d4e05de55ae94d21a586e6a0bfa724e327;p=vsys.git

diff --git a/fifowatcher.ml b/fifowatcher.ml
index 7871821..46771a8 100644
--- a/fifowatcher.ml
+++ b/fifowatcher.ml
@@ -127,11 +127,11 @@ let mkentry fqp abspath perm =
     (try 
        Unix.mkfifo (sprintf "%s.in" fqp) 0o666
      with 
-         e->printf "Error creating FIFO: %s->%s,%o\n" fqp fifoin perm;flush Pervasives.stdout;raise e);
+         e->printf "Error creating FIFO: %s->%s. May be something wrong at the frontend.\n" fqp fifoin;flush Pervasives.stdout);
     (try 
        Unix.mkfifo (sprintf "%s.out" fqp) 0o666
      with 
-         e->printf "Error creating FIFO: %s->%s,%o\n" fqp fifoout perm;flush Pervasives.stdout;raise e)
+         e->printf "Error creating FIFO: %s->%s. May be something wrong at the frontend.\n" fqp fifoout;flush Pervasives.stdout)
 
 (** Open fifos for a session *)
 let openentry fqp abspath perm =