+# Given a <prefix>, override each variable <x> by <prefix>_<x>
+
+function override-vars
+{
+ local OR V OLDIFS
+ declare -a OR
+ OLDIFS="$IFS"
+ IFS=$'\n'
+ OR=($(set | sed "s/^$1_//;t;d")) || true
+ IFS="$OLDIFS"
+ for V in "${OR[@]}" ; do
+ eval "$V"
+ done
+}
+