paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Check package name validity correctly.

Browse Source 
git-svn-id: trunk@59091 -
This commit is contained in:
juha 2018-09-20 08:18:55 +00:00
parent e2bbe1a4d4
commit 32ab98357d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/lpkcache.pas
View File

@ -312,7 +312,7 @@ begin
if not FilenameIsAbsolute(LPKFilename) then exit;
if CompareFilenames(ExtractFileExt(LPKFilename),'.lpk')<>0 then exit;
PkgName:=ExtractFileNameOnly(LPKFilename);
if not IsValidIdent(PkgName) then exit;
if not IsValidPkgName(PkgName) then exit;
Result:=true;
end;