my($ok)=0;\r
chdir("$directory");\r
print "Change directory to \"$directory\"\n";\r
+\r
open SH_LIGNE, $file or die "Unable to open $file. $!\n";\r
\r
while(defined($line1=<SH_LIGNE>))\r
$line1 =~ s/\$\{srcdir\:\=\.\}/./g;\r
$line1 =~ s/\$SG_TEST_EXENV//g;\r
$line1 =~ s/\$SG_EXENV_TEST//g;\r
- $line1 =~ s/\$EXEEXT/.exe/g;\r
+ $line1 =~ s/\$EXEEXT//g;\r
$line1 =~ s/\${EXEEXT:=}//g;\r
$line1 =~ s/^\$\ *//g;\r
$line1 =~ s/^.\/lua/lua/g;\r
$line1 =~ s/\r//g;\r
chomp $line1;\r
\r
- if($line1 =~ /^.*\[.*\].*\[.*\/INFO\].*$/){if(!defined($line2=<FILE_ERR>)){die;}}elsif($line1 =~ /^.*\[.*\].*\[.*\/WARNING\].*$/){if(!defined($line2=<FILE_ERR>)){die;}}\r
- elsif($line1 =~ /^.*\[.*\].*\[.*\/CRITICAL\].*$/){if(!defined($line2=<FILE_ERR>)){die;}}\r
- elsif($line1 =~ /^.*\[.*\].*\[.*\/DEBUG\].*$/){if(!defined($line2=<FILE_ERR>)){die;}}\r
- else{if(!defined($line2=<FILE>)){die;}}\r
+ if($line1 =~ /^.*\[.*\].*\[.*\/INFO\].*$/)\r
+ {if(!defined($line2=<FILE_ERR>))\r
+ { print "- $line1\n";\r
+ die;}}\r
+ elsif($line1 =~ /^.*\[.*\].*\[.*\/WARNING\].*$/)\r
+ {if(!defined($line2=<FILE_ERR>))\r
+ { print "- $line1\n";\r
+ die;}}\r
+ elsif($line1 =~ /^.*\[.*\].*\[.*\/CRITICAL\].*$/)\r
+ {if(!defined($line2=<FILE_ERR>))\r
+ { print "- $line1\n";\r
+ die;}}\r
+ elsif($line1 =~ /^.*\[.*\].*\[.*\/DEBUG\].*$/)\r
+ {if(!defined($line2=<FILE_ERR>))\r
+ { print "- $line1\n";\r
+ die;}}\r
+ else{if(!defined($line2=<FILE>))\r
+ { print "- $line1\n";\r
+ die;}}\r
\r
$line2 =~ s/\r//g; \r
chomp $line2;\r