diff options
| author | Emanuele Giaquinta <exg@irssi.org> | 2008-05-13 14:43:33 +0000 |
|---|---|---|
| committer | exg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2008-05-13 14:43:33 +0000 |
| commit | fd44be823e7d5afe3f0695fff9f5104d50add173 (patch) | |
| tree | 224b453749ee76f1471328a0a8726e98566281b0 /src | |
| parent | e592a1f085bfbf4e154db20abe7cc00485e6d100 (diff) | |
| download | irssi-fd44be823e7d5afe3f0695fff9f5104d50add173.zip | |
Use g_input_add_poll to create a watcher for an fd.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4819 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/perl-sources.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c index 6f2375f4..95d77b9e 100644 --- a/src/perl/perl-sources.c +++ b/src/perl/perl-sources.c @@ -123,7 +123,6 @@ int perl_input_add(int source, int condition, SV *func, SV *data, int once) { PERL_SCRIPT_REC *script; PERL_SOURCE_REC *rec; - GIOChannel *channel; const char *pkg; pkg = perl_get_package(); @@ -138,10 +137,8 @@ int perl_input_add(int source, int condition, SV *func, SV *data, int once) rec->func = perl_func_sv_inc(func, pkg); rec->data = SvREFCNT_inc(data); - channel = g_io_channel_unix_new(source); - rec->tag = g_input_add(channel, condition, + rec->tag = g_input_add_poll(source, G_PRIORITY_DEFAULT, condition, (GInputFunction) perl_source_event, rec); - g_io_channel_unref(channel); perl_sources = g_slist_append(perl_sources, rec); return rec->tag; |