Added "pear package -n" (only output the created package file name)

diff --git a/pear/PEAR/Command/Package.php b/pear/PEAR/Command/Package.php
index eb2d9771b2f0d29ac429d5b1f3efd103e811f017..4d102bc0fe25cd22820db025581fac9b1195dd77 100644 (file)
--- a/pear/PEAR/Command/Package.php
+++ b/pear/PEAR/Command/Package.php
@@ -89,9 +89,11 @@ class PEAR_Command_Package extends PEAR_Command_Common
     {
         switch ($command) {
             case 'package':
-                return array('[<package.xml>]',
+                return array('[-n] [<package.xml>]',
                              'Creates a PEAR package from its description file (usually '.
-                             'named as package.xml)');
+                             "named as package.xml)\n".
+                             "   -n    Return only the created package file name. Useful for\n".
+                             "         shell script operations.");
             case 'package-list':
                 return array('<pear package>',
                              'List the contents of a PEAR package');
@@ -146,6 +148,14 @@ class PEAR_Command_Package extends PEAR_Command_Common
                 $result = $packager->Package($pkginfofile, $compress);
                 $output = ob_get_contents();
                 ob_end_clean();
+                if (PEAR::isError($result)) {
+                    $failmsg = $result;
+                }
+                // Don't want output, only the package file name just created
+                if (isset($options['n'])) {
+                    $this->ui->displayLine($result);
+                    return;
+                }
                 $lines = explode("\n", $output);
                 foreach ($lines as $line) {
                     $this->ui->displayLine($line);