comparison: plugins/perl/perl.c
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 }; |
