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

lplupdate: support dotted pkg names

Browse Source 
git-svn-id: branches/fixes_2_0@60155 -
This commit is contained in:
mattias 2019-01-23 07:15:12 +00:00
parent 4595387be0
commit 95491978cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/lplupdate.lpr
View File

@ -1,6 +1,6 @@
{ Search all lpk files, tell what lpl files are missing, too much or need change
Copyright (C) 2010 Mattias Gaertner mattias@freepascal.org
Copyright (C) 2019 Mattias Gaertner mattias@freepascal.org
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
@ -294,7 +294,7 @@ begin
Error('missing - in lpl file name: '+Filename);
// package name
Link.PkgName:=copy(s,1,p-1);
if (Link.PkgName='') or (not IsValidIdent(Link.PkgName)) then
if (Link.PkgName='') or (not IsValidIdent(Link.PkgName,true)) then
Error('invalid name in lpl file name: '+Filename);
// package version
Version:=copy(s,p+1,length(s));