# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 970868524 0
# Node ID 1d021b2eb65d6b62606ffd098221eedb2c28e92e
# Parent  acd4d81f2afc9e033f783f904be1714c03ed2672
[gaim-migrate @ 957]
hopefully this should fix some perl stuff :-P

committer: Tailor Script <tailor@pidgin.im>

diff -r acd4d81f2afc -r 1d021b2eb65d src/perl.c
--- 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"