X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=8f641a443c5d497dedb5322a077da674bb986a12;hb=d5b4190c36f130852973121042876af3c5642cd7;hp=7319344caeb51fa8bda7770f5c12f397f685e7c6;hpb=cce161221036760959ff1d0b7628a55942bf558a;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 7319344c..8f641a44 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -156,12 +156,11 @@ sub send_now
 	my $conn = $self->{conn};
 	my $sort = shift;
 	my $call = $self->{call};
-	my $line;
 	
-	foreach $line (@_) {
-		chomp $line;
-		$conn->send_now("$sort$call|$line") if $conn;
-		dbg('chan', "-> $sort $call $line") if $conn;
+	for (@_) {
+		chomp;
+		$conn->send_now("$sort$call|$_") if $conn;
+		dbg('chan', "-> $sort $call $_") if $conn;
 	}
 	$self->{t} = time;
 }
@@ -174,12 +173,11 @@ sub send						# this is always later and always data
 	my $self = shift;
 	my $conn = $self->{conn};
 	my $call = $self->{call};
-	my $line;
 
-	foreach $line (@_) {
-		chomp $line;
-		$conn->send_later("D$call|$line") if $conn;
-		dbg('chan', "-> D $call $line") if $conn;
+	for (@_) {
+		chomp;
+		$conn->send_later("D$call|$_") if $conn;
+		dbg('chan', "-> D $call $_") if $conn;
 	}
 	$self->{t} = time;
 }