code-style.pl

- allow $var++ and $var-- syntax.

update.php / block.module
- cleaned up coding style, and trailing spaces.

modules/block.module

@@ -26,7 +26,7 @@ function block_link($type) {
 
 function block_admin_save($edit) {
   foreach ($edit as $key=>$value) {
-    db_query("UPDATE blocks SET region = '". check_input($value[region]) ."', status = '". check_input($value[status]) ."', path = '". check_input($value[path]) ."', weight = '". check_input($value[weight]) ."' WHERE name = '". check_input($key) ."'");
+    db_query("UPDATE blocks SET region = '". check_input($value["region"]) ."', status = '". check_input($value["status"]) ."', path = '". check_input($value["path"]) ."', weight = '". check_input($value["weight"]) ."' WHERE name = '". check_input($key) ."'");
   }
 }
 

modules/block/block.module

@@ -26,7 +26,7 @@ function block_link($type) {
 
 function block_admin_save($edit) {
   foreach ($edit as $key=>$value) {
-    db_query("UPDATE blocks SET region = '". check_input($value[region]) ."', status = '". check_input($value[status]) ."', path = '". check_input($value[path]) ."', weight = '". check_input($value[weight]) ."' WHERE name = '". check_input($key) ."'");
+    db_query("UPDATE blocks SET region = '". check_input($value["region"]) ."', status = '". check_input($value["status"]) ."', path = '". check_input($value["path"]) ."', weight = '". check_input($value["weight"]) ."' WHERE name = '". check_input($key) ."'");
   }
 }
 

scripts/code-style.pl

@@ -121,11 +121,14 @@ while (<>) {
     $msg = "missing space before '{'";
   }
   # there should be a space after ','
-  elsif (/[,][^ ]/ && $program) {
+  elsif (/[,][^ \n\r]/ && $program) {
     $msg = "missing space after ','";
   }
   # spaces before and after, only foreach may use $foo=>bar
-  elsif (/[^ =](\+|\-|\*|==|\.=|=>|=|\|\|)[^ =>]/ && $program && !/foreach/) {
+  elsif (/[^ =|-|\+](\+|\-)[^ =>|-|\+]/ && $program && !/foreach/) {
+    $msg = "'$1' -> ' $1 '";
+  }
+  elsif (/[^ =](\*|==|\.=|=>|=|\|\|)[^ =>]/ && $program && !/foreach/) {
     $msg = "'$1' -> ' $1 '";
   }
   # ensure $bar["foo"] and $bar[$foo] and $bar[0]