projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove 5.10.1 isms (//= etc)
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index c816e373ae0f5dd9c8d6333531472a50514ed2ab..b71d8a684a2a8207a72e0112990a71251023d4c3 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);
@@
-50,8
+50,8
@@
use Console;
# initialisation
#
# initialisation
#
-$clusteraddr
//
= '127.0.0.1';
-$clusterport
//
= 27754;
+$clusteraddr
||
= '127.0.0.1';
+$clusterport
||
= 27754;
$call = ""; # the callsign being used
$node = ""; # the node callsign being used
$call = ""; # the callsign being used
$node = ""; # the node callsign being used