[tyndur-devel] [PATCH] lpt: Ein paar Kleinigkeiten geradebiegen

[Kevin Wolf <kevin@xxxxxxxxxx>]

! lpt: Hilfetext zu list korrigiert (zeigt verfuegbare statt
  installierte Pakete an)
! lpt: Strings sind einsbasiert. Wir wollen ja nicht Zeilen mit genau
  35 Zeichen Laenge ausschliessen.
- lpt: Debugmeldung entfernt

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lpt/lpt.pas          |    3 +--
 src/modules/pas/lpt/repositories.pas |    2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/modules/pas/lpt/lpt.pas b/src/modules/pas/lpt/lpt.pas
index 852cd8f..9b3f98e 100644
--- a/src/modules/pas/lpt/lpt.pas
+++ b/src/modules/pas/lpt/lpt.pas
@@ -7,7 +7,7 @@ procedure PrintUsage;
 begin
     WriteLn('Aufruf: lpt [scan|list|get <Paket>]');
     WriteLn('  scan: Lädt die Paketlisten von den Servern');
-    WriteLn('  list: Zeigt alle installierten Pakete an');
+    WriteLn('  list: Zeigt alle verfügbaren Pakete an');
     WriteLn('  get:  Installiert das angegebene Paket');
     WriteLn('  install: Installiert das angegebene Paket aus lokaler Datei');
     WriteLn('           Achtung, Datei als letzten Parameter angeben!');
@@ -59,7 +59,6 @@ begin
         repo := TRepository(repos.items[i]);
         try
             repo.FetchLists(pkgset);
-            WriteLn('Laden der Pakete von ' + repo.name + 'erfolgreich.');
         except
             on e: Exception do begin
                 TextColor(12);
diff --git a/src/modules/pas/lpt/repositories.pas b/src/modules/pas/lpt/repositories.pas
index 9e77f0b..13633ca 100644
--- a/src/modules/pas/lpt/repositories.pas
+++ b/src/modules/pas/lpt/repositories.pas
@@ -51,7 +51,7 @@ begin
         ReadLn(f, url);
 
         // Leerzeilen ignorieren
-        if (url = '') or (url[0] = '#') then begin
+        if (url = '') or (url[1] = '#') then begin
             continue;
         end;
 
-- 
1.6.0.2