plugins/perl/perl.c

changeset 5445
161029ee66a6
parent 5436
a0e0bacaa196
child 5470
2c97aae0f2fb
equal deleted inserted replaced
5444:fa518f76b2a2 5445:161029ee66a6
657 dXSARGS; 657 dXSARGS;
658 items = 0; 658 items = 0;
659 659
660 title = SvPV(ST(0), junk); 660 title = SvPV(ST(0), junk);
661 message = SvPV(ST(1), junk); 661 message = SvPV(ST(1), junk);
662 gaim_dialog_info(my_plugin, NULL, title, message); 662 gaim_notify_info(my_plugin, NULL, title, message);
663 XSRETURN(0); 663 XSRETURN(0);
664 } 664 }
665 665
666 XS (XS_GAIM_buddy_list) 666 XS (XS_GAIM_buddy_list)
667 { 667 {

mercurial