Mercurial > pidgin.yaz
comparison src/perl.c @ 947:1d021b2eb65d
[gaim-migrate @ 957]
hopefully this should fix some perl stuff :-P
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Fri, 06 Oct 2000 21:42:04 +0000 |
parents | 9fca1293f871 |
children | fa681641643d |
comparison
equal
deleted
inserted
replaced
946:acd4d81f2afc | 947:1d021b2eb65d |
---|---|
178 } | 178 } |
179 } | 179 } |
180 | 180 |
181 void perl_init() | 181 void perl_init() |
182 { | 182 { |
183 char *perl_args[] = {"", "-e", "0"}; | 183 char *perl_args[] = {"", "-e", "0", "-w"}; |
184 char load_file[] = | 184 char load_file[] = |
185 "sub load_file()\n" | 185 "sub load_file()\n" |
186 "{\n" | 186 "{\n" |
187 " (my $file_name) = @_;\n" | 187 " (my $file_name) = @_;\n" |
188 " open FH, $file_name or return 2;\n" | 188 " open FH, $file_name or return 2;\n" |
189 " my $is = $/;\n" | |
189 " local($/) = undef;\n" | 190 " local($/) = undef;\n" |
190 " $file = <FH>;\n" | 191 " $file = <FH>;\n" |
191 " close FH;\n" | 192 " close FH;\n" |
193 " $/ = $is;\n" | |
194 " $file = \"\\@ISA = qw(Exporter DynaLoader);\\n\" . $file;\n" | |
192 " eval $file;\n" | 195 " eval $file;\n" |
193 " eval $file if $@;\n" | 196 " eval $file if $@;\n" |
194 " return 1 if $@;\n" | 197 " return 1 if $@;\n" |
195 " return 0;\n" | 198 " return 0;\n" |
196 "}"; | 199 "}"; |