diff options
-rw-r--r-- | rtl/linux/suuid.inc | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/rtl/linux/suuid.inc b/rtl/linux/suuid.inc index 99e8dccb82..e0d2faebf6 100644 --- a/rtl/linux/suuid.inc +++ b/rtl/linux/suuid.inc @@ -61,15 +61,14 @@ begin fd:=FileOpen(KernelUUID,fmOpenRead); Result:=(Fd>=0); if Result then - begin - SetLength(S,UUIDLen); - SetLength(S,FileRead(fd,S[1],UUIDLen)); - Result:=(Length(S)=UUIDLen); - If Result then - begin - GUID:=StringToGUID('{'+S+'}'); - //Writeln('Kernel ID = ',GuidToString(GUID)); - end; + try + SetLength(S,UUIDLen); + SetLength(S,FileRead(fd,S[1],UUIDLen)); + Result:=(Length(S)=UUIDLen); + If Result then + GUID:=StringToGUID('{'+S+'}'); + finally + FileClose(FD); end; end; |