[Gd-chatter] r11503 - trunk/libraries/network/web-framework

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Nov 27 03:08:49 2007
New Revision: 11503

Modified:
   trunk/libraries/network/web-framework/storage.dylan
Log:
Job: minor
make this file name parsing more safe

Modified: trunk/libraries/network/web-framework/storage.dylan
==============================================================================
--- trunk/libraries/network/web-framework/storage.dylan	(original)
+++ trunk/libraries/network/web-framework/storage.dylan	Tue Nov 27 03:08:49 2007
@@ -197,9 +197,13 @@
 
 define function split-file (filename :: <string>) => (version :: <integer>)
   let elements = split(filename, '.');
-  if ((elements.size = 2) & (elements[0] = $filename))
-    string-to-integer(elements[1]);
-  else
+  block()
+    if ((elements.size = 2) & (elements[0] = $filename))
+      string-to-integer(elements[1]);
+    else
+      0;
+    end;
+  exception (e :: <error>)
     0
   end;
 end;