paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 09:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

lplupdate: support dotted pkg names

Browse Source 
git-svn-id: trunk@60154 -
This commit is contained in:
mattias 2019-01-23 07:14:45 +00:00
parent 861615d32d
commit b4792ac71a
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 { 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 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 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); Error('missing - in lpl file name: '+Filename);
// package name // package name
Link.PkgName:=copy(s,1,p-1); 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); Error('invalid name in lpl file name: '+Filename);
// package version // package version
Version:=copy(s,p+1,length(s)); Version:=copy(s,p+1,length(s));