plugins/perl/perl.c

changeset 8735
01248ea222d3
parent 8138
782f61a0d052
child 8749
fb487e9e101a
equal deleted inserted replaced
8734:afa380e9818c 8735:01248ea222d3
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

mercurial