paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not handle files with the same name as a package as a package-file if the extension is not .zip

Browse Source 
git-svn-id: trunk@15169 -
This commit is contained in:
joost 2010-04-24 21:44:28 +00:00
parent d27093ceba
commit 82eb1a1a1c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fppkg/fppkg.pp
View File

@ -351,7 +351,7 @@ begin
// Process packages
for i:=0 to ParaPackages.Count-1 do
begin
if FileExists(ParaPackages[i]) then
if sametext(ExtractFileExt(ParaPackages[i]),'.zip') and FileExists(ParaPackages[i]) then
begin
ActionPackage:=AvailableRepository.AddPackage(CmdLinePackageName);
ActionPackage.LocalFileName:=ExpandFileName(ParaPackages[i]);