license+sysreq: assign *after* checking the element exists (oops).

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@58 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/trunk/exec/license b/pkg/trunk/exec/license
index e9fa64aa95e6226bbaa23de5a14a39cce633a0e2..fd4c53b6fbea9e9ee8f4270c35190e870e773168 100755 (executable)
--- a/pkg/trunk/exec/license
+++ b/pkg/trunk/exec/license
@@ -7,10 +7,10 @@ exec_cmd <- function(argc, argv) {
     usage <- function()
         message('usage: add <license> [deny]|file <license> <path>|ls|quit|help')
 
-    cmd = argv[1]
     if (argc < 1) {
         exit()
     }
+    cmd = argv[1]
 
     if (cmd == 'add') {
         if (argc != 2 && (argc != 3 || argv[3] != 'deny')) {

diff --git a/pkg/trunk/exec/sysreq b/pkg/trunk/exec/sysreq
index b9c464e5119b4d47cf2500cf9a532f28a75d94a1..ce2fc73e647dea7b4cb7e721ffce84486f937ddf 100755 (executable)
--- a/pkg/trunk/exec/sysreq
+++ b/pkg/trunk/exec/sysreq
@@ -7,10 +7,10 @@ exec_cmd <- function(argc, argv) {
     usage <- function()
         message('usage: add <debianpkg> <sysreq>|ls|quit|help')
 
-    cmd = argv[1]
     if (argc < 1) {
         exit()
     }
+    cmd = argv[1]
 
     if (cmd == 'add') {
         if (argc < 3) {