From 4bff8d88ebae7313dc5c35fa376ecd2be094a6b7 Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Fri, 18 Oct 2013 04:57:37 +0200 Subject: [PATCH] Error message if unable to write to the trace directory --- process/files/intradata_get.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl index b095300..e077d58 100644 --- a/process/files/intradata_get.pl +++ b/process/files/intradata_get.pl @@ -329,7 +329,7 @@ sub update_trace chmod 0755, "$basedir/$year/$project_id/traces/$rendu_id/"; } - open my $out, ">", "$basedir/$year/$project_id/traces/$rendu_id/$login.xml" or croak(""); + open my $out, ">", "$basedir/$year/$project_id/traces/$rendu_id/$login.xml" or croak("Unable to write to $rendu_id/$login.xml"); print $out $trace; close $out;