X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=d8f6eb54d6bbb7ab61b603b058ac5b71da874d49;hb=d7e79ac62a8403bfdfc40ae69212eb03cff8f7ff;hp=4eca6e74abfc930b6c7408bc5d453be1f2e7b2b2;hpb=87ebd761d9a6b3d96c88d81109ef0a51293e8a2e;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 4eca6e74..d8f6eb54 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -258,7 +258,7 @@ sub send_ans
 			$line =~ s/\s+$//o;	# why am having to do this? 
 			$self->send($line);
 		}
-		$self->{pagedata} =  \@_;
+		$self->{pagedata} =  [ @_ ];
 		$self->state('page');
 		$self->send($self->msg('page', scalar @_));
 	} else {