| 132 char *perl_args[] = { "", "-e", "0", "-w" }; |
132 char *perl_args[] = { "", "-e", "0", "-w" }; |
| 133 char perl_definitions[] = |
133 char perl_definitions[] = |
| 134 { |
134 { |
| 135 /* We use to function one to load a file the other to |
135 /* We use to function one to load a file the other to |
| 136 execute the string obtained from the first and holding |
136 execute the string obtained from the first and holding |
| 137 the file conents. This allows to have a realy local $/ |
137 the file contents. This allows to have a really local $/ |
| 138 without introducing temp variables to hold the old |
138 without introducing temp variables to hold the old |
| 139 value. Just a question of style:) */ |
139 value. Just a question of style:) */ |
| 140 "package Gaim::PerlLoader;" |
140 "package Gaim::PerlLoader;" |
| 141 "use Symbol;" |
141 "use Symbol;" |
| 142 |
142 |