🚀 go-pugleaf

It was wrong (blush!).  Here's the *correct* version:


David Newall                     Phone:   +61 8 343 3160
Unix Systems Programmer          Fax:     +61 8 349 6939
Academic Computing Service       E-mail:  ccdn@levels.sait.oz{.au}
SA Institute of Technology       UUCP:    uunet!munnari!pisa.sait.oz!ccdn
The Levels, SA, 5095, Australia  VAX PSI: 505282622004::ccdn

*** variables.c.orig	Fri Feb  9 15:11:06 1990
--- variables.c	Sun Feb 11 23:17:57 1990
***************
*** 76,81 ****
--- 76,82 ----
    int string_index = 0;
    int shell_level;
    SHELL_VAR *temp_var;
+   extern int interactive;
  
    while (string = env[string_index++])
      {
***************
*** 99,126 ****
    set_if_not ("PATH", DEFAULT_PATH_VALUE);
    set_var_auto_export ("PATH");
  
!   set_if_not ("TERM", "dumb");
!   set_var_auto_export ("TERM");
  
    set_if_not ("PS1", primary_prompt);
    set_if_not ("PS2", secondary_prompt);
    set_if_not ("IFS", " \t\n");
  
!   /* Default MAILPATH, and MAILCHECK. */
!   set_if_not ("MAILCHECK", "60");
!   if ((get_string_value ("MAIL") == (char *)NULL) &&
!       (get_string_value ("MAILPATH") == (char *)NULL))
      {
!       extern char *current_user_name;
!       char *tem;
!   
!       tem = (char *)xmalloc (1 + sizeof (DEFAULT_MAIL_PATH)
!       + strlen (current_user_name));
!       strcpy (tem, DEFAULT_MAIL_PATH);
!       strcat (tem, current_user_name);
! 
!       bind_variable ("MAILPATH", tem);
!       free (tem);
      }
  
    /* Set up $PWD. */
--- 100,133 ----
    set_if_not ("PATH", DEFAULT_PATH_VALUE);
    set_var_auto_export ("PATH");
  
!   if (interactive)
!     {
!       set_if_not ("TERM", "dumb");
!       set_var_auto_export ("TERM");
!     }
  
    set_if_not ("PS1", primary_prompt);
    set_if_not ("PS2", secondary_prompt);
    set_if_not ("IFS", " \t\n");
  
!   if (interactive)
      {
!       /* Default MAILPATH, and MAILCHECK. */
!       set_if_not ("MAILCHECK", "60");
!       if ((get_string_value ("MAIL") == (char *)NULL) &&
!           (get_string_value ("MAILPATH") == (char *)NULL))
!         {
!           extern char *current_user_name;
!           char *tem;
!     
!           tem = (char *)xmalloc (1 + sizeof (DEFAULT_MAIL_PATH)
! 			       + strlen (current_user_name));
!           strcpy (tem, DEFAULT_MAIL_PATH);
!           strcat (tem, current_user_name);
!     
!           bind_variable ("MAILPATH", tem);
!           free (tem);
!         }
      }
  
    /* Set up $PWD. */