[Oorexx-svn] SF.net SVN: oorexx:[5024] main/branches/4.0beta/trunk/interpreter/api/ InterpreterAPI.cpp

[<bi...@us...>]

Revision: 5024
          http://oorexx.svn.sourceforge.net/oorexx/?rev=5024&view=rev
Author:   bigrixx
Date:     2009-07-27 20:17:12 +0000 (Mon, 27 Jul 2009)

Log Message:
-----------
[ oorexx-Bugs-2827991 ] rexx dies with dummy arguments

Modified Paths:
--------------
    main/branches/4.0beta/trunk/interpreter/api/InterpreterAPI.cpp

Modified: main/branches/4.0beta/trunk/interpreter/api/InterpreterAPI.cpp
===================================================================
--- main/branches/4.0beta/trunk/interpreter/api/InterpreterAPI.cpp	2009-07-27 20:15:09 UTC (rev 5023)
+++ main/branches/4.0beta/trunk/interpreter/api/InterpreterAPI.cpp	2009-07-27 20:17:12 UTC (rev 5024)
@@ -127,7 +127,8 @@
   short * retcode,                     /* Integer form of result            */
   PRXSTRING result)                    /* Result returned from program      */
 {
-    if (calltype == RXCOMMAND && argcount == 1 && arglist[0].strptr != NULL && StringUtil::caselessCompare(arglist[0].strptr, "//T", arglist[0].strlength) == 0)
+    if (calltype == RXCOMMAND && argcount == 1 && arglist[0].strptr != NULL && arglist[0].strlength > 0 &&
+        StringUtil::caselessCompare(arglist[0].strptr, "//T", arglist[0].strlength) == 0)
     {
         TranslateDispatcher arguments;
         arguments.programName = programname;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.