From f84f6e78a348d16a6931fd22e22d6fb90b36e7e5 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 8 Mar 2012 20:14:59 +0000
Subject: [PATCH] Don't catch too many types of exceptions, only file stream
 related ones, in a loop with much code which was never meant to be handled by
 a try/except block.

---
 source/runsqlfile.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/runsqlfile.pas b/source/runsqlfile.pas
index 3978eb15..5e1a01f0 100644
--- a/source/runsqlfile.pas
+++ b/source/runsqlfile.pas
@@ -133,7 +133,7 @@ begin
     Queries.Free;
     Stream.Free;
   except
-    on E: Exception do
+    on E:EFileStreamError do
     begin
       ErrorDialog('Error while reading file "'+SQLFileName+'"', E.Message);
       Mainform.AddOrRemoveFromQueryLoadHistory(SQLFileName, False, True);