Make gruntmaster-compile fail if it cannot exec the compiler

diff --git a/gruntmaster-compile b/gruntmaster-compile
index b4c2ab12e78a8d440cc3ace415e80eba25c496f5..1641d35a92a095032f8b8537d9e4f6a7d2e9e203 100755 (executable)
--- a/gruntmaster-compile
+++ b/gruntmaster-compile
@@ -24,10 +24,15 @@ if ($ret) {
                exec 'go', qw/build -compiler gc/, $name when 'GOLANG';
                exec 'go', qw/build -compiler gccgo/, $name, when 'GCCGO';
                exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';
                exec 'go', qw/build -compiler gc/, $name when 'GOLANG';
                exec 'go', qw/build -compiler gccgo/, $name, when 'GCCGO';
                exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';

-               copy $name, $basename when ['PERL', 'PYTHON']
+
+               when ([qw/PERL PYTHON/]){
+                       copy $name, $basename;
+                       exit
+               }

        }
 }
 
        }
 }
 

+exit 1;

 __END__
 
 =encoding utf-8
 __END__
 
 =encoding utf-8