From c7d1102c61fd3efe8d46c6b0d714d6de2760db5a Mon Sep 17 00:00:00 2001
From: Arnavion <arnavion@gmail.com>
Date: Sat, 22 Jun 2013 22:06:49 -0700
Subject: perl: Fixed get_list('networks') to work with new servlist.conf
 syntax for autojoin channels.

---
 plugins/perl/lib/Xchat/List/Network/Entry.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'plugins/perl/lib/Xchat/List/Network/Entry.pm')

diff --git a/plugins/perl/lib/Xchat/List/Network/Entry.pm b/plugins/perl/lib/Xchat/List/Network/Entry.pm
index e40b48bd..6f2aa925 100644
--- a/plugins/perl/lib/Xchat/List/Network/Entry.pm
+++ b/plugins/perl/lib/Xchat/List/Network/Entry.pm
@@ -39,6 +39,8 @@ sub parse {
 	my @fields = split /\n/, $data;
 	chomp @fields;
 
+	$entry->{ autojoins } = Xchat::List::Network::AutoJoin->new();
+
 	for my $field ( @fields ) {
 	SWITCH: for ( $field ) {
 			/^($letter_key_re)=(.*)/ && do {
@@ -47,8 +49,7 @@ sub parse {
 			};
 
 			/^J.(.*)/ && do {
-				$entry->{ autojoins } =
-					Xchat::List::Network::AutoJoin->new( $1 );
+				$entry->{ autojoins }->add( $1 );
 			};
 
 			/^F.(.*)/ && do {
-- 
cgit 1.4.1