1 typedef struct interpreter {
2   char Itokenbuf[256];
3 } PerlInterpreter;
S_missingterm(char * s)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 }
S_scan_heredoc(PerlInterpreter * my_perl,char * s,int i)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 }
24