paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 06:09:14 +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 not FilenameIsAbsolute(LPKFilename) then exit;
if CompareFilenames(ExtractFileExt(LPKFilename),'.lpk')<>0 then exit; if CompareFilenames(ExtractFileExt(LPKFilename),'.lpk')<>0 then exit;
PkgName:=ExtractFileNameOnly(LPKFilename); PkgName:=ExtractFileNameOnly(LPKFilename);
if not IsValidIdent(PkgName) then exit; if not IsValidPkgName(PkgName) then exit;
Result:=true; Result:=true;
end; end;