# HG changeset patch
# User Luke Schierer <lschiere@pidgin.im>
# Date 1039200172 0
# Node ID 9438d2e96cb10e84e7f29eb2ca5c306318f28acd
# Parent  198a5edcb1c56ba561d7822f63b2376343b96daa
[gaim-migrate @ 4259]
"you have two popus (GAIM::print) with one arg each when it really could be one
popup GAIM::print does except two arguments" -- Amiel Martin (agnosonga)

simple enough patch.

committer: Tailor Script <tailor@pidgin.im>

diff -r 198a5edcb1c5 -r 9438d2e96cb1 src/perl.c
--- a/src/perl.c	Thu Dec 05 20:38:07 2002 +0000
+++ b/src/perl.c	Fri Dec 06 18:42:52 2002 +0000
@@ -417,8 +417,7 @@
 		  "eval $strin;"
 		  "if($@){"
 		    /*"  #something went wrong\n"*/
-		    "GAIM::print\"Errors loading file $f_name:\\n\";"
-		    "GAIM::print\"$@\\n\";"
+		    "GAIM::print(\"Errors loading file $f_name:\\n\",\"$@\");"
 		    "return 1;"
 		  "}"
 		  "return 0;"
@@ -432,7 +431,7 @@
 #else
 	perl_parse(my_perl, xs_init, 3, perl_args, NULL);
 #endif
-#ifndef HAVE_PERL_EVAL_PV
+ #ifdef HAVE_PERL_EVAL_PV
 	eval_pv(perl_definitions, TRUE);
 #else
 	perl_eval_pv(perl_definitions, TRUE); /* deprecated */