projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
downgrade perl on console.pl
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 8de22e8281cd3d6af835fadb875e860ae625e757..13f2bfa1873ae9522068d427e217cc5e936c2a24 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-13,7
+13,7
@@
#
#
#
#
-require 5.
10
.1;
+require 5.
8
.1;
use warnings;
use vars qw($data $clusteraddr $clusterport);
use warnings;
use vars qw($data $clusteraddr $clusterport);
@@
-116,7
+116,7
@@
sub do_initscr
$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
}
$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
}
-sub do
_
resize
+sub doresize
{
endwin() if $scr;
initscr();
{
endwin() if $scr;
initscr();
@@
-527,7
+527,7
@@
unless ($DB::VERSION) {
$SIG{'HUP'} = \&sig_term;
# start up
$SIG{'HUP'} = \&sig_term;
# start up
-do
_
resize();
+doresize();
$SIG{__DIE__} = \&sig_term;
$SIG{__DIE__} = \&sig_term;