From 61913763628fc78f6293a590a21f03074b91118a Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Fri, 20 Sep 2013 18:06:34 +0200 Subject: [PATCH] Add some debug string --- process/files/intradata_get.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl index 9fb0b2c..7051d65 100644 --- a/process/files/intradata_get.pl +++ b/process/files/intradata_get.pl @@ -74,6 +74,7 @@ sub grades_new_bonus my @lines = ($args->{files}{$kfile} =~ tr/\n//); log TRACE, $args->{files}{$kfile}; + log TRACE, @lines; my $value = 1; # Looking for a global value