Changeset 2729

Timestamp:

05/05/05 17:27:49 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4271

Message:

* fix yaml segfault on all-whitespace input strings

Files:

• src/Pugs/Prim.hs (modified) (1 diff)

src/Pugs/Prim.hs

@@ -419 +419 @@
 op1EvalYaml cv = do
     str     <- fromVal cv
+    if all isSpace str then return undef else do
     yaml    <- liftIO $ parseYaml (encodeUTF8 str)
     fromYaml yaml