Fix perl syntax

[simgrid.git] / examples / gras_stub_generator

diff --git a/examples/gras_stub_generator b/examples/gras_stub_generator
index e784543..2791ff5 100755 (executable)
--- a/examples/gras_stub_generator
+++ b/examples/gras_stub_generator
@@ -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"
 }