X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fconsole.pl;h=c816e373ae0f5dd9c8d6333531472a50514ed2ab;hp=8de22e8281cd3d6af835fadb875e860ae625e757;hb=f63d598af3f797b56b8d5e23ec4ff5254192eee9;hpb=66a5726687662b1a4726ac1de972340ac856ef7a

diff --git a/perl/console.pl b/perl/console.pl
index 8de22e82..c816e373 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -116,7 +116,7 @@ sub do_initscr
 	$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
 }
 
-sub do_resize
+sub doresize
 {
 	endwin() if $scr;
 	initscr();
@@ -527,7 +527,7 @@ unless ($DB::VERSION) {
 $SIG{'HUP'} = \&sig_term;
 
 # start up
-do_resize();
+doresize();
 
 $SIG{__DIE__} = \&sig_term;