Bug? Try / Catch not working

[mrred128]

With the following code in a web module......

    resp.ContentType = "text/text;charset=UTF-8"
    Try
        ' read in the input
        Dim bc As ByteConverter
        Dim iJSon As JSONParser
        Dim InS As InputStream = req.InputStream
        Dim Buffer(ins.BytesAvailable) As Byte
        InS.ReadBytes(Buffer,0,Buffer.Length)
        iJSon.Initialize(Stuff.rc4(bc.StringFromBytes(Buffer,"utf-8"),Stuff.DefKey))
        Dim iparam As List = ijson.NextArray
        ' do something
        Log(iparam)
        ' set the output
        Dim oJSon As JSONGenerator
        Dim Data As List
        Dim str As String = "THIS IS A TEST"
        Data.Initialize
        Data.Add(str)
        oJSon.Initialize2(Data)
        resp.write(Stuff.RC4(oJSon.ToString,Stuff.DefKey))
    Catch
        resp.SendError(500,"OPPS")
    End Try

So, this code takes a rc4 json string and does nothing and spits out a rc4 json string. When nothing has been sent to the page, it should send a 500 error code, but just crashes on the 'Dim iparam As List = ijson.NextArray' line.

 

[Erel]

In debug mode it always shows the error message in the logs. This doesn't mean that it crashes.

Are you sure that the app crashes?

 

[mrred128]

Running it in release mode does make it work as it should. However in debug mode, it displays the crash dump in the log and does not send the 500 code. It does not accept any new requests.

 

[Erel]

I'm unable to reproduce it here. I see the error in the logs however it continues to work.

I'm using a development version so it might have been fixed in this version. Please test it again when v2.00 beta is released.