Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Fix perl syntax
authormquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Fri, 31 Dec 2004 20:43:55 +0000 (20:43 +0000)
committermquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Fri, 31 Dec 2004 20:43:55 +0000 (20:43 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@728 48e7efb5-ca39-0410-a469-dd3cf9ba447f

examples/gras_stub_generator

index e784543..2791ff5 100755 (executable)
@@ -15,7 +15,7 @@ eval qq{
 
 sub usage {
     my ($msg)=@_;
 
 sub usage {
     my ($msg)=@_;
-    fail ($msg? "gras_stub_generator: $msg\n":"").
+    die ($msg? "gras_stub_generator: $msg\n":"").
         "gras_stub_generator: USAGE\n".
         "  gras_stub_generator project_name deployment_file\n"
 }
         "gras_stub_generator: USAGE\n".
         "  gras_stub_generator project_name deployment_file\n"
 }