view finch/libgnt/test/key.c @ 26962:22b87a82755b

Fix a couple of crashes in the perl plugin loader. * Do NULL check before using strcmp. The NULL could be set by either libpurple, or the plugin. * Looks like we need to PERL_SET_CONTEXT to setup the perl environment correctly.

#include <ncurses.h>

int main()
{
	int ch;

	initscr();
	noecho();
	cbreak();
	refresh();

	WINDOW *win = newpad(20, 30);
	box(win, 0, 0);
	prefresh(win, 0, 0, 0, 0, 19, 29);
	doupdate();

	while ((ch = getch())) {
		printw("%d ", ch);
		refresh();
	}

	endwin();
	return 0;
}