comparison: src/perl.c
src/perl.c
- changeset 592
- 9cd04eefc8ca
- parent 591
- 809e18bb0862
- child 597
- 568c12ceaf7f
equal
deleted
inserted
replaced
| 591:809e18bb0862 | 592:9cd04eefc8ca |
|---|---|
| 258 XSRETURN(1); | 258 XSRETURN(1); |
| 259 } | 259 } |
| 260 | 260 |
| 261 XS (XS_AIM_print) | 261 XS (XS_AIM_print) |
| 262 { | 262 { |
| 263 /* FIXME */ | 263 char *title; |
| 264 char *message; | |
| 265 int junk; | |
| 266 dXSARGS; | |
| 267 items = 0; | |
| 268 | |
| 269 title = SvPV(ST(0), junk); | |
| 270 message = SvPV(ST(1), junk); | |
| 271 do_error_dialog(message, title); | |
| 272 XSRETURN(0); | |
| 264 } | 273 } |
| 265 | 274 |
| 266 XS (XS_AIM_buddy_list) | 275 XS (XS_AIM_buddy_list) |
| 267 { | 276 { |
| 268 struct buddy *buddy; | 277 struct buddy *buddy; |
