awk: guard against empty environment

diff --git a/editors/awk.c b/editors/awk.c
index 5a504d03456179218ee35066c989a7c869ccc77e..bc9e99a6f555982e30bd08bfe43f017355c9a1fc 100644 (file)
--- a/editors/awk.c
+++ b/editors/awk.c
@@ -2696,7 +2696,8 @@ int awk_main(int argc, char **argv)
        newfile("/dev/stdout")->F = stdout;
        newfile("/dev/stderr")->F = stderr;
 
-       for (envp = environ; *envp; envp++) {
+       /* Huh, people report that sometimes environ is NULL. Oh well. */
+       if (environ) for (envp = environ; *envp; envp++) {
                char *s = xstrdup(*envp);
                char *s1 = strchr(s, '=');
                if (s1) {