diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-28 16:34:22 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-28 16:34:22 +0100 |
| commit | 6856fdd6344c27cd4417f7d6a4f849fbf2c326fb (patch) | |
| tree | 97476a256c5270fc20f48b2ebae319aeb3aa0dca | |
| parent | 6132c2ef3066e813acb1237afeca266f32c53a21 (diff) | |
| download | tuxcmd-6856fdd6344c27cd4417f7d6a4f849fbf2c326fb.tar.xz | |
Fix reading symlink target
| -rw-r--r-- | UEngines.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/UEngines.pas b/UEngines.pas index 5e3909c..cc0e1f3 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -321,6 +321,7 @@ begin libc_free(StatBuf); if Item^.IsLnk then begin + memset(@LnkBuf[0], 0, Length(LnkBuf)); i := readlink(PChar(APath), LnkBuf, sizeof(LnkBuf)); if i >= 0 then Item^.LnkPointTo := g_strdup(@LnkBuf[0]); |