From 343240db9464312aa8348d552be7f2db98614e80 Mon Sep 17 00:00:00 2001
From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Fri, 31 Dec 2004 20:43:55 +0000
Subject: [PATCH] Fix perl syntax

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@728 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 examples/gras_stub_generator | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/gras_stub_generator b/examples/gras_stub_generator
index e784543dfc..2791ff51ed 100755
--- a/examples/gras_stub_generator
+++ b/examples/gras_stub_generator
@@ -15,7 +15,7 @@ eval qq{
 
 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"
 }
-- 
2.20.1