# HG changeset patch
# User address@hidden
# Date 1242741577 -7200
# Node ID 4de199e1e5c0aaf62c92e069142822f56ac169df
# Parent  0839df1694aebea58e5e32671f5837d008382896
Fix bug when calling pkg describe to check whether a package is installed

diff -r 0839df1694ae -r 4de199e1e5c0 scripts/ChangeLog
--- a/scripts/ChangeLog	Tue May 19 11:47:46 2009 +0200
+++ b/scripts/ChangeLog	Tue May 19 15:59:37 2009 +0200
@@ -1,3 +1,8 @@
+2009-05-19 Carlo de Falco  <address@hidden>
+
+	* pkg/pkg.m: Fix a bug when quering only one non installed package
+	with "pkg describe".
+
 2009-05-14  Jaroslav Hajek  <address@hidden>
 
 	* optimization/__fdjac__.m: Support central differences.
diff -r 0839df1694ae -r 4de199e1e5c0 scripts/pkg/pkg.m
--- a/scripts/pkg/pkg.m	Tue May 19 11:47:46 2009 +0200
+++ b/scripts/pkg/pkg.m	Tue May 19 15:59:37 2009 +0200
@@ -1000,9 +1000,14 @@
   endfor
 
   non_inst = find (strcmp (flag, "Not installed"));
-  if (! isempty (non_inst) && nargout < 2)
-    non_inst_str = sprintf (" %s ", pkgnames{non_inst});
-    error ("some packages are not installed: %s", non_inst_str);
+  if (! isempty (non_inst))
+    if (nargout < 2)
+      non_inst_str = sprintf (" %s ", pkgnames{non_inst});
+      error ("some packages are not installed: %s", non_inst_str);
+    else
+      pkg_desc_list{non_inst} = struct ("name", {}, "description",  
+					{}, "provides", {});
+    endif
   endif
 
   if (nargout == 0)