diff options
| author | Arnavion <arnavion@gmail.com> | 2013-06-22 22:06:49 -0700 |
|---|---|---|
| committer | Arnavion <arnavion@gmail.com> | 2013-06-22 22:06:49 -0700 |
| commit | c7d1102c61fd3efe8d46c6b0d714d6de2760db5a (patch) | |
| tree | 70c92590338dd1eac2827f25fd7a994b875b3dc8 /plugins/perl/lib/Xchat/List/Network/Entry.pm | |
| parent | 6e3f05fcc7c1b57fc97e3473d1f01071c325c695 (diff) | |
perl: Fixed get_list('networks') to work with new servlist.conf syntax for autojoin channels.
Diffstat (limited to 'plugins/perl/lib/Xchat/List/Network/Entry.pm')
| -rw-r--r-- | plugins/perl/lib/Xchat/List/Network/Entry.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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 { |