comparison plugins/perl/perl.c @ 6523:d7e04709be96

[gaim-migrate @ 7040] Fixed a perl function call, and changed gaim_account_set_user_info to update the server when called from a perl script. committer: Tailor Script <[e-mail]>

6522:0c5233faceb8

		  "my $strin=load_file($f_name);"
		  "return 2 if($strin eq \"__FAILED__\");"
		  "eval $strin;"
		  "if($@){"
		    /*"  #something went wrong\n"*/
		    "GAIM::print(\"Errors loading file $f_name:\\n\",\"$@\");"
		    "return 1;"
		  "}"
		  "return 0;"
		"}"
	};

6523:d7e04709be96

		  "my $strin=load_file($f_name);"
		  "return 2 if($strin eq \"__FAILED__\");"
		  "eval $strin;"
		  "if($@){"
		    /*"  #something went wrong\n"*/
		    "Gaim::debug(\"perl\", \"Errors loading file $f_name:\\n\",\"$@\");"
		    "return 1;"
		  "}"
		  "return 0;"
		"}"
	};