plugins/perl/perl.c

changeset 6523
20c459e452ac
parent 6522
e7d94240fc71
child 6524
aa6fda36af91
equal deleted inserted replaced
6522:e7d94240fc71 6523:20c459e452ac
138 "my $strin=load_file($f_name);" 138 "my $strin=load_file($f_name);"
139 "return 2 if($strin eq \"__FAILED__\");" 139 "return 2 if($strin eq \"__FAILED__\");"
140 "eval $strin;" 140 "eval $strin;"
141 "if($@){" 141 "if($@){"
142 /*" #something went wrong\n"*/ 142 /*" #something went wrong\n"*/
143 "GAIM::print(\"Errors loading file $f_name:\\n\",\"$@\");" 143 "Gaim::debug(\"perl\", \"Errors loading file $f_name:\\n\",\"$@\");"
144 "return 1;" 144 "return 1;"
145 "}" 145 "}"
146 "return 0;" 146 "return 0;"
147 "}" 147 "}"
148 }; 148 };

mercurial