# HG changeset patch
# User dbateman
# Date 1180909021 0
# Node ID 44ebfc8c4ff01ff6cb75348a7dfb68d88247d932
# Parent  2aad75fcc93a0ddb39430425a23611c0a701a6a0
[project @ 2007-06-03 22:17:01 by dbateman]

diff -r 2aad75fcc93a -r 44ebfc8c4ff0 scripts/ChangeLog
--- a/scripts/ChangeLog	Sun Jun 03 20:58:29 2007 +0000
+++ b/scripts/ChangeLog	Sun Jun 03 22:17:01 2007 +0000
@@ -1,7 +1,8 @@
 2007-06-03  David Bateman  <dbateman@free.fr>
 
 	* polynomial/spline.m: Add a small tolerance to spline tests.
-
+	* pkg/pkg.m: Protect against multiple actions being define.
+	
 2007-06-01  David Bateman  <dbateman@free.fr>
 
 	* pkg.m (pkg:is_superuser): Remove function used in one place and
diff -r 2aad75fcc93a -r 44ebfc8c4ff0 scripts/pkg/pkg.m
--- a/scripts/pkg/pkg.m	Sun Jun 03 20:58:29 2007 +0000
+++ b/scripts/pkg/pkg.m	Sun Jun 03 22:17:01 2007 +0000
@@ -224,7 +224,11 @@
 	endif
       case {"list", "install", "uninstall", "load", "unload", ...
 	    "prefix", "local_list", "global_list", "rebuild", "build"}
-	action = varargin{i};
+	if (strcmp (action,"none"))
+	  action = varargin{i};
+	else
+	  error ("more than one action specified");
+	endif
       otherwise
 	files{end+1} = varargin{i};
     endswitch
@@ -877,7 +881,6 @@
       endif	
       tfile = strcat (pack.name, "-", pack.version, ".tar");
       tar (tfile, pack.name);
-      
 
     unwind_protect_cleanup
       if (exist (pack.name, "dir"))