[Oorexx-svn] SF.net SVN: oorexx: [2504] interpreter-3.x/trunk/kernel/runtime/ RexxActivation.cpp

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

Revision: 2504
          http://oorexx.svn.sourceforge.net/oorexx/?rev=2504&view=rev
Author:   bigrixx
Date:     2008-05-23 09:23:17 -0700 (Fri, 23 May 2008)

Log Message:
-----------
[ 1970589 ] value('88p8p') == '.8P8P'

Modified Paths:
--------------
    interpreter-3.x/trunk/kernel/runtime/RexxActivation.cpp

Modified: interpreter-3.x/trunk/kernel/runtime/RexxActivation.cpp
===================================================================
--- interpreter-3.x/trunk/kernel/runtime/RexxActivation.cpp	2008-05-22 22:19:06 UTC (rev 2503)
+++ interpreter-3.x/trunk/kernel/runtime/RexxActivation.cpp	2008-05-23 16:23:17 UTC (rev 2504)
@@ -3605,7 +3605,12 @@
 
     // Dot variables retrieve from the environment
     case STRING_LITERAL:
-      return (RexxVariableBase *)new RexxDotVariable(variable->extract(1, variable->getLength() - 1));
+      if (variable->getChar(0) == '.')
+      {
+          return (RexxVariableBase *)new RexxDotVariable(variable->extract(1, variable->getLength() - 1));
+      }
+      // this is a literal symbol not beginning with a period
+      return (RexxVariableBase *)variable;
 
                                        /* if it is a stem                   */
     case STRING_STEM:


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