Properly handle failed stat

Found when trying to get info of a non-existent file (badly constructed path).

1 files changed, 6 insertions, 5 deletions

diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas
index 0ce7e1f..b39ad8e 100644
--- a/vfs/UVFSCore.pas
+++ b/vfs/UVFSCore.pas
@@ -523,12 +523,13 @@ begin
   end;
   try
     P := FSourcePlugin.FVFSFileInfo(FGlobs, PChar(APath), FollowSymlinks, AddFullPath, Error);
-    if P <> nil then
+    if P <> nil then begin
       Result := GetDataItemFromVFSItem(P);
-    if P^.FName <> nil then real_libc_free(P^.FName);
-    if P^.FDisplayName <> nil then real_libc_free(P^.FDisplayName);
-    if P^.sLinkTo <> nil then real_libc_free(P^.sLinkTo);
-    real_libc_free(P);
+      if P^.FName <> nil then real_libc_free(P^.FName);
+      if P^.FDisplayName <> nil then real_libc_free(P^.FDisplayName);
+      if P^.sLinkTo <> nil then real_libc_free(P^.sLinkTo);
+      real_libc_free(P);
+    end;
   except
     on E: Exception do begin
       DebugMsg(['^^VFS (EE): GetFileInfo: Exception: ', E.Message]);