Mercurial > pidgin
changeset 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 | acd4d81f2afc |
| children | 16776bb2d344 |
| files | src/perl.c |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/perl.c Fri Oct 06 20:33:36 2000 +0000 +++ b/src/perl.c Fri Oct 06 21:42:04 2000 +0000 @@ -180,15 +180,18 @@ void perl_init() { - char *perl_args[] = {"", "-e", "0"}; + char *perl_args[] = {"", "-e", "0", "-w"}; char load_file[] = "sub load_file()\n" "{\n" " (my $file_name) = @_;\n" " open FH, $file_name or return 2;\n" +" my $is = $/;\n" " local($/) = undef;\n" " $file = <FH>;\n" " close FH;\n" +" $/ = $is;\n" +" $file = \"\\@ISA = qw(Exporter DynaLoader);\\n\" . $file;\n" " eval $file;\n" " eval $file if $@;\n" " return 1 if $@;\n"