[press-svn] SF.net SVN: pressobjects:[1094] trunk/Source/Core/PressMetadata.pas

[<jcm...@us...>]

Revision: 1094
          http://pressobjects.svn.sourceforge.net/pressobjects/?rev=1094&view=rev
Author:   jcmoraisjr
Date:     2012-11-15 16:22:12 +0000 (Thu, 15 Nov 2012)
Log Message:
-----------
[Metadata] Fixed signed number parsing.

Modified Paths:
--------------
    trunk/Source/Core/PressMetadata.pas

Modified: trunk/Source/Core/PressMetadata.pas
===================================================================
--- trunk/Source/Core/PressMetadata.pas	2012-07-01 01:27:10 UTC (rev 1093)
+++ trunk/Source/Core/PressMetadata.pas	2012-11-15 16:22:12 UTC (rev 1094)
@@ -496,7 +496,11 @@
       if IsValidIdent(Reader.NextChar) then
         VValue := Reader.ReadPath
       else
+      begin
         VValue := Reader.ReadToken;
+        if (VValue <> '') and (VValue[1] in ['-', '+']) then
+          VValue := VValue + Reader.ReadNumber;
+      end;
       Token := Reader.ReadToken;
     end else
       VValue := SPressTrueString;

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