Mercurial > pidgin
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 "}"; |