packages: irssi-scripts/forwardfix.pl, irssi-scripts/irssi-scripts.spec - r...

[arekm]

Author: arekm                        Date: Mon Jun  7 09:07:42 2010 GMT
Module: packages                      Tag: HEAD
---- Log message:
- rel 6; fix forwardfix for perl 5.12 (script used deprecated features)

---- Files affected:
packages/irssi-scripts:
   forwardfix.pl (1.2 -> 1.3) , irssi-scripts.spec (1.56 -> 1.57) 

---- Diffs:

================================================================
Index: packages/irssi-scripts/forwardfix.pl
diff -u packages/irssi-scripts/forwardfix.pl:1.2 packages/irssi-scripts/forwardfix.pl:1.3
--- packages/irssi-scripts/forwardfix.pl:1.2	Sat Jul 25 23:14:34 2009
+++ packages/irssi-scripts/forwardfix.pl	Mon Jun  7 11:07:37 2010
@@ -56,8 +56,10 @@
 	#  special    =  %x5B-60 / %x7B-7D       ; "[", "]", "\", "`", "_", "^", "{", "|", "}"
 	my $re_nick = qr/[A-Za-z0-9\[\]\\\`\_\^\{\|\}\-]+/o;
 
-	map { split /:/,$_; $chanset->{lc $_[0]} = lc $_[1]; } split /[ ,]+/,Irssi::settings_get_str("forward_chanset");
-	map { split /:/,$_; $netmap->{lc $_[0]} = $_[1]; } split /[ ,]+/,Irssi::settings_get_str("forward_netmap");
+	my @forward_chanset = split(/[ ,]+/,Irssi::settings_get_str("forward_chanset"));
+	map { my @a=split /:/,$_; $chanset->{lc $a[0]} = lc $a[1]; } @forward_chanset;
+	my @forward_netmap = split(/[ ,]+/,Irssi::settings_get_str("forward_netmap"));
+	map { my @a=split /:/,$_; $netmap->{lc $a[0]} = $a[1]; } @forward_netmap;
 
 	my $now = time(); # yep compute foreach net, just to scope var
 	foreach my $n (keys %crude_hack) {

================================================================
Index: packages/irssi-scripts/irssi-scripts.spec
diff -u packages/irssi-scripts/irssi-scripts.spec:1.56 packages/irssi-scripts/irssi-scripts.spec:1.57
--- packages/irssi-scripts/irssi-scripts.spec:1.56	Wed Feb 24 16:03:09 2010
+++ packages/irssi-scripts/irssi-scripts.spec	Mon Jun  7 11:07:37 2010
@@ -6,7 +6,7 @@
 Summary(pl.UTF-8):	Zestaw skryptów do Irssi
 Name:		irssi-scripts
 Version:	0.5
-Release:	5
+Release:	6
 License:	distributable
 Group:		Applications/Communications
 Source0:	http://ep09.pld-linux.org/~domelu/pld/%{name}/irssi-scripts.tar.gz
@@ -619,6 +619,9 @@
 All persons listed below can be reached at <cvs_login>@pld-linux.org
 
 $Log$
+Revision 1.57  2010/06/07 09:07:37  arekm
+- rel 6; fix forwardfix for perl 5.12 (script used deprecated features)
+
 Revision 1.56  2010/02/24 15:03:09  glen
 - set gtrans version to 0.2
 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/irssi-scripts/forwardfix.pl?r1=1.2&r2=1.3&f=u
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/irssi-scripts/irssi-scripts.spec?r1=1.56&r2=1.57&f=u