From 0be58dc525d11533a42600c0afbd6f47c60ec16f Mon Sep 17 00:00:00 2001
From: Juan Jose Comellas <jcomellas@novamens.com>
Date: Thu, 17 Dec 2009 15:34:48 -0300
Subject: [PATCH] Avoid hardcoding escript name.

---
 examples/ex1.escript | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/examples/ex1.escript b/examples/ex1.escript
index 609084d..caede32 100755
--- a/examples/ex1.escript
+++ b/examples/ex1.escript
@@ -16,10 +16,9 @@
 -author('juanjo@comellas.org').
 
 main([]) ->
-    getopt:usage(option_spec_list(), "ex1.escript");
+    getopt:usage(option_spec_list(), escript:script_name());
 main(Args) ->
     OptSpecList = option_spec_list(),
-
     io:format("For command line: ~p~n"
               "getopt:parse/2 returns:~n~n", [Args]),
     case getopt:parse(OptSpecList, Args) of