$OpenBSD: patch-src_pork_perl_xs_c,v 1.1 2003/07/19 05:59:41 jolan Exp $
--- src/pork_perl_xs.c.orig	Sat Jul 19 00:18:01 2003
+++ src/pork_perl_xs.c	Sat Jul 19 00:19:07 2003
@@ -195,7 +195,7 @@ XS(PORK_echo) {
 		XSRETURN_IV(-1);
 
 	msg = SvPV(ST(0), notused);
-	screen_win_msg(cur_window(), 0, 0, 1, "%s", msg);
+	screen_write(cur_window(), msg);
 	XSRETURN_IV(0);
 }
 
@@ -825,7 +825,7 @@ XS(PORK_search) {
 	if (!acct->connected)
 		XSRETURN_IV(-1);
 
-	XSRETURN_IV(acct->proto->buddy_search(acct, target));
+	XSRETURN_IV(acct->proto->who(acct, target));
 }
 
 XS(PORK_set_away) {
