slight mod on the PCXX replies

diff --git a/perl/DXXml/Text.pm b/perl/DXXml/Text.pm
index 3496e0edad09355c7c382b7dc3fe0ff41d6b8464..adec20e84704e66a44d2d8d95bb7639d99d270a6 100644 (file)
--- a/perl/DXXml/Text.pm
+++ b/perl/DXXml/Text.pm
@@ -46,8 +46,8 @@ sub topcxx
        my @out;
 
        my $ref = DXUser->get_current($self->{to});
-       while (@_) {
-               my $line = shift;
+       for (split /(?:%0D)?\%0A/, $self->{content}) {
+               my $line = $_;
                $line =~ s/\s*$//;
                Log('rcmd', 'out', $self->{to}, $line);
                if ($self->{u} && $dxchan->is_clx && $ref->is_clx) {