X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=d8f6eb54d6bbb7ab61b603b058ac5b71da874d49;hb=3f1c5ab45aa13e99da6bea0bfcc6d4434beb5871;hp=4eca6e74abfc930b6c7408bc5d453be1f2e7b2b2;hpb=2c3a20bdcef84e620b0c3c2d306a71ebe17956b0;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 {