Răsfoiți Sursa

* remove debug writeln

git-svn-id: trunk@11954 -
peter 17 ani în urmă
părinte
comite
eb51a56199
1 a modificat fișierele cu 0 adăugiri și 1 ștergeri
  1. 0 1
      utils/fppkg/pkgrepos.pp

+ 0 - 1
utils/fppkg/pkgrepos.pp

@@ -294,7 +294,6 @@ procedure FindInstalledPackages(ACompilerOptions:TCompilerOptions;showdups:boole
       begin
         Log(vlDebug,SLogFindInstalledPackages,[AUnitDir]);
         repeat
-writeln(SR.Name);
           if ((SR.Attr and faDirectory)=faDirectory) and (SR.Name<>'.') and (SR.Name<>'..') then
             begin
               UD:=IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(AUnitDir)+SR.Name);