From f6fdd9847c1f46b233be56296cad39ad949d25ae Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 13 Jun 2007 22:44:47 +0100 Subject: [PATCH] fix 1.53 to work with old version method add some .gitignores --- .gitignore | 4 ++++ data/.gitignore | 8 ++++++++ perl/cluster.pl | 9 --------- 3 files changed, 12 insertions(+), 9 deletions(-) create mode 100644 .gitignore create mode 100644 data/.gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 00000000..43dd1b99 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +# standard things to ignore +connect/* +local +local_cmd diff --git a/data/.gitignore b/data/.gitignore new file mode 100644 index 00000000..628c2593 --- /dev/null +++ b/data/.gitignore @@ -0,0 +1,8 @@ +# things in data to ignore +bad* +debug +*.v? +log +dupefile +spots +*.db diff --git a/perl/cluster.pl b/perl/cluster.pl index 8aade278..e8e7cb05 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -130,15 +130,6 @@ $bumpexisting = 1; # 1 = allow new connection to disconnect old, 0 - don't al $allowdxby = 0; # 1 = allow "dx by ", 0 - don't allow it -use vars qw($VERSION $BRANCH $build $branch); -$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); -$main::build += $VERSION; -$main::branch += $BRANCH; -$main::build -= 3; # fudge (put back for now) - - - # send a message to call on conn and disconnect sub already_conn { -- 2.43.0