X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fsrc%2Fperl%2Fperl-sources.c;fp=apps%2Firssi%2Fsrc%2Fperl%2Fperl-sources.c;h=1697dbd23b491e7f82e42955fcfadb7f0fc09e99;hb=18d69a0a1fec438e241bb4f431506ed59a34066b;hp=9379601cc6e9464613da77e237fa1fd2260eed90;hpb=f7be6adec0248118cddde9b04522c13cd90568cd;p=silc.git

diff --git a/apps/irssi/src/perl/perl-sources.c b/apps/irssi/src/perl/perl-sources.c
index 9379601c..1697dbd2 100644
--- a/apps/irssi/src/perl/perl-sources.c
+++ b/apps/irssi/src/perl/perl-sources.c
@@ -13,9 +13,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
 
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+    You should have received a copy of the GNU General Public License along
+    with this program; if not, write to the Free Software Foundation, Inc.,
+    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */
 
 #define NEED_PERL_H
@@ -25,6 +25,7 @@
 #include "perl-core.h"
 #include "perl-common.h"
 #include "perl-sources.h"
+#include "misc.h"
 
 typedef struct {
         PERL_SCRIPT_REC *script;
@@ -123,7 +124,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 +138,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;