25/33: guix-install.sh: Warn if we suspect dodgy automation.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit a326e3085da451c82ea461116ea1f59318f0f81d
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Oct 16 02:00:00 2022 +0200

    guix-install.sh: Warn if we suspect dodgy automation.
    
    This doesn't affect the installation (yet), but reserves the right to
    default to safe values other than ‘y’ in future.
    
    * etc/guix-install.sh (welcome): Warn if the ‘return’ wasn't.
---
 etc/guix-install.sh | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/etc/guix-install.sh b/etc/guix-install.sh
index 43dea3b605..152accef77 100755
--- a/etc/guix-install.sh
+++ b/etc/guix-install.sh
@@ -581,6 +581,7 @@ fi
 
 welcome()
 {
+    local char
     cat<<"EOF"
     ░░░                                     ░░░
     ░░▒▒░░░░░░░░░               ░░░░░░░░░▒▒░░
@@ -607,7 +608,13 @@ This script installs GNU Guix on your system
 https://www.gnu.org/software/guix/
 EOF
     echo -n "Press return to continue..."
-    read -r
+    read -r char
+    if [ "$char" ]; then
+       echo
+       echo "...that ($char) was not a return!"
+       _msg "${WAR}Use newlines to automate installation, e.g.: yes '' | 
${0##*/}"
+       _msg "${WAR}Any other method is unsupported and likely to break in 
future."
+    fi
 }
 
 main()