* Fix bug ID #30672, patch by Silvio Clecio

git-svn-id: trunk@34884 -

rtl/inc/getopts.pp

@@ -351,6 +351,7 @@ begin
           nextchar:=0;
           inc(optind);
           Internal_getopt:='?';
+          exit;
         end;
        if pfound<>nil then
         begin