MFH

diff --git a/pear/scripts/pearcmd.php b/pear/scripts/pearcmd.php
index 678e77d61757bf2e167ef798d1bb5f6b5137abaa..09b2e30af9a8cf4aafa68398aa70a015304fcb1d 100644 (file)
--- a/pear/scripts/pearcmd.php
+++ b/pear/scripts/pearcmd.php
@@ -48,6 +48,7 @@ $all_commands = PEAR_Command::getCommands();
 
 $argv = Console_Getopt::readPHPArgv();
 $progname = basename($argv[0]);
+array_shift($argv);
 $options = Console_Getopt::getopt($argv, "c:C:d:D:Gh?sSqu:vV");
 if (PEAR::isError($options)) {
     usage($options);
@@ -155,6 +156,7 @@ if ($fetype == 'Gtk') {
 
     $short_args = $long_args = null;
     PEAR_Command::getGetoptArgs($command, $short_args, $long_args);
+    array_shift($options[1]);
     if (PEAR::isError($tmp = Console_Getopt::getopt($options[1], $short_args, $long_args))) {
         break;
     }