X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=mp2df.pas;h=989e66ba3347a3abe054e82946554057572b6c95;hb=6b2088e564090174afc8dc1eaf32df2d8c4d7a8e;hp=f25ee8889fd5f4f315b4a1a97ec8b5896d410251;hpb=6b276723bb8d528fc765792c3957c1de333617c1;p=mp2df.git

diff --git a/mp2df.pas b/mp2df.pas
index f25ee88..989e66b 100644
--- a/mp2df.pas
+++ b/mp2df.pas
@@ -943,7 +943,7 @@ program mp2df;
     while (i <= ParamCount) and (not done) do
     begin
       str := ParamStr(i);
-      done := str[1] <> '-';
+      done := (Length(str) = 0) or (str[1] <> '-');
       if not done then
       begin
         case str of