1  typedef struct interpreter {
       2    char Itokenbuf[256];
       3  } PerlInterpreter;
       4  static inline void S_missingterm(char *s)
       5  {
       6    char tmpbuf[3] = "";
       7    char q;
       8    if (!s)
       9      s = tmpbuf;
      10    q = strchr(s,'"') ? '\'' : '"';
      11  }
      12  void S_scan_heredoc(PerlInterpreter *my_perl, char *s, int i)
      13  {
      14    char term;
      15    term = *my_perl->Itokenbuf;
      16    if (i)
      17    {
      18      *s = term;
      19      S_missingterm(my_perl->Itokenbuf);
      20    }
      21    else
      22      S_missingterm(my_perl->Itokenbuf);
      23  }