projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e3d9a37
)
remove warnings from $BRANCH lines for 5.8.0
author
minima
<minima>
Mon, 29 Jul 2002 15:41:49 +0000
(15:41 +0000)
committer
minima
<minima>
Mon, 29 Jul 2002 15:41:49 +0000
(15:41 +0000)
50 files changed:
Changes
patch
|
blob
|
history
perl/AGWMsg.pm
patch
|
blob
|
history
perl/AnnTalk.pm
patch
|
blob
|
history
perl/BBS.pm
patch
|
blob
|
history
perl/BadWords.pm
patch
|
blob
|
history
perl/Bands.pm
patch
|
blob
|
history
perl/Buck.pm
patch
|
blob
|
history
perl/CmdAlias.pm
patch
|
blob
|
history
perl/DB0SDX.pm
patch
|
blob
|
history
perl/DXBearing.pm
patch
|
blob
|
history
perl/DXChannel.pm
patch
|
blob
|
history
perl/DXCommandmode.pm
patch
|
blob
|
history
perl/DXConnect.pm
patch
|
blob
|
history
perl/DXCron.pm
patch
|
blob
|
history
perl/DXDb.pm
patch
|
blob
|
history
perl/DXDebug.pm
patch
|
blob
|
history
perl/DXDupe.pm
patch
|
blob
|
history
perl/DXHash.pm
patch
|
blob
|
history
perl/DXLog.pm
patch
|
blob
|
history
perl/DXLogPrint.pm
patch
|
blob
|
history
perl/DXM.pm
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
perl/DXProtout.pm
patch
|
blob
|
history
perl/DXUser.pm
patch
|
blob
|
history
perl/DXUtil.pm
patch
|
blob
|
history
perl/Editable.pm
patch
|
blob
|
history
perl/ExtMsg.pm
patch
|
blob
|
history
perl/Filter.pm
patch
|
blob
|
history
perl/Geomag.pm
patch
|
blob
|
history
perl/IntMsg.pm
patch
|
blob
|
history
perl/Julian.pm
patch
|
blob
|
history
perl/K4UTE.pm
patch
|
blob
|
history
perl/Minimuf.pm
patch
|
blob
|
history
perl/Msg.pm
patch
|
blob
|
history
perl/PC.pm
patch
|
blob
|
history
perl/Prefix.pm
patch
|
blob
|
history
perl/Prot.pm
patch
|
blob
|
history
perl/QRZ.pm
patch
|
blob
|
history
perl/QXProt.pm
patch
|
blob
|
history
perl/Route.pm
patch
|
blob
|
history
perl/Route/Node.pm
patch
|
blob
|
history
perl/Route/User.pm
patch
|
blob
|
history
perl/Script.pm
patch
|
blob
|
history
perl/Spot.pm
patch
|
blob
|
history
perl/Sun.pm
patch
|
blob
|
history
perl/Timer.pm
patch
|
blob
|
history
perl/Verify.pm
patch
|
blob
|
history
perl/WCY.pm
patch
|
blob
|
history
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index c25aca450a542837ac3bb2069d93cf18b58784fd..12558766ac3a7bc7d7ca488e8e03f49f33d4418f 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,6
@@
29Jul02=======================================================================
29Jul02=======================================================================
-1.Changed max R value in wcy to 500 from 300.
+1. Changed max R value in wcy to 500 from 300.
+2. Got rid of warnings on startup using 5.8.0
28Jul02=======================================================================
1. stick the invalid key deletes in an eval loop in export_user
18Jul02=======================================================================
28Jul02=======================================================================
1. stick the invalid key deletes in an eval loop in export_user
18Jul02=======================================================================
diff --git
a/perl/AGWMsg.pm
b/perl/AGWMsg.pm
index 69c63c1ef702423bd4a1d2df1aca0f8443dad531..4a36d49a6a40536468e1119768e5fb1773b72448 100644
(file)
--- a/
perl/AGWMsg.pm
+++ b/
perl/AGWMsg.pm
@@
-46,7
+46,7
@@
$hpolltime = 300 unless defined $hpolltime;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/AnnTalk.pm
b/perl/AnnTalk.pm
index 86c3defab56447519c592d3e7dee92728e110bab..58c2a4394460d2cdd11671a10f2e94678601557c 100644
(file)
--- a/
perl/AnnTalk.pm
+++ b/
perl/AnnTalk.pm
@@
-38,7
+38,7
@@
$filterdef = bless ([
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/BBS.pm
b/perl/BBS.pm
index a39b41a538ac8dc78857a850fae374669f43af62..9e8998748f6ee89ea884bc7b76babef1f609c2c1 100644
(file)
--- a/
perl/BBS.pm
+++ b/
perl/BBS.pm
@@
-28,7
+28,7
@@
$maxbidage = 60; # the maximum age of a stored bid
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index d0572cc2de4cb9f99b60b02461383d56c8117e6f..df6a15571e112f14864960723aafacf621d19ec2 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-31,7
+31,7
@@
$badword = new DXHash "badword";
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Bands.pm
b/perl/Bands.pm
index 6384887d998c7a08e7bb82c504cd7f16fa21d38d..069c8ccd1503e9dc0104c9a860060664d6f7b7c5 100644
(file)
--- a/
perl/Bands.pm
+++ b/
perl/Bands.pm
@@
-37,7
+37,7
@@
$bandsfn = "$main::data/bands.pl";
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Buck.pm
b/perl/Buck.pm
index f7723d0af01c180cf139f5c0ead54a58adc78264..2c2fc5907f7b1ce8be88cf279546588976a5a941 100644
(file)
--- a/
perl/Buck.pm
+++ b/
perl/Buck.pm
@@
-10,7
+10,7
@@
use DXUtil;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/CmdAlias.pm
b/perl/CmdAlias.pm
index 3ee067a413fd88710286fe342ba2cd6da6b616ae..803f762f729a4ea7b1aa54f49dc6261f498b3503 100644
(file)
--- a/
perl/CmdAlias.pm
+++ b/
perl/CmdAlias.pm
@@
-34,7
+34,7
@@
$localfn = "$main::localcmd/Aliases";
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DB0SDX.pm
b/perl/DB0SDX.pm
index eaac4d0048ad83b3efd0e2c67a869fb0b31552fc..174d313d24c686edd1ceefff42616d5e3a0148c1 100644
(file)
--- a/
perl/DB0SDX.pm
+++ b/
perl/DB0SDX.pm
@@
-11,7
+11,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXBearing.pm
b/perl/DXBearing.pm
index e2c45e30cad82cb6358b34df06e23fa2f62a0bc3..066826d6983e52cc9d3836c5d3353c8a3fda33de 100644
(file)
--- a/
perl/DXBearing.pm
+++ b/
perl/DXBearing.pm
@@
-23,7
+23,7
@@
$pi = 3.14159265358979;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index e126bc4c05e6fd258c584c8028556e4c8ae5ea3c..e6e0d1b42634e365022c66650788ce979c36e862 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-116,7
+116,7
@@
$count = 0;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index fe5a484295f7bc9c0a9948946dfa362559e11506..60c7f1086d228ccc03c68f5364fe9ee71134803d 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-47,7
+47,7
@@
$maxbadcount = 3; # no of bad words allowed before disconnection
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXConnect.pm
b/perl/DXConnect.pm
index 4a6bbf109c899234ebe264c2437530445dbbfa10..b904e14cf7f1023bd1b808ae20fa9b4a56843356 100644
(file)
--- a/
perl/DXConnect.pm
+++ b/
perl/DXConnect.pm
@@
-18,7
+18,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXCron.pm
b/perl/DXCron.pm
index 74b65996a3e54eb4d0b2cc01ab8488a9504a7ba2..868420585b70e416e48e9af0ed56e27a09a524ff 100644
(file)
--- a/
perl/DXCron.pm
+++ b/
perl/DXCron.pm
@@
-28,7
+28,7
@@
my $localfn = "$main::localcmd/crontab";
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXDb.pm
b/perl/DXDb.pm
index db26d4aacf5b8329732e132e4ad7c303061cdc91..03e84e0cf9ad7c1c43c056fa5dfb393751146002 100644
(file)
--- a/
perl/DXDb.pm
+++ b/
perl/DXDb.pm
@@
-50,7
+50,7
@@
$nextstream = 0;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 821c41b44ea40791ccea40620adb642367a4d529..416dea0a9e79caadb7e923c2e2d2585b5ca04f09 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-28,7
+28,7
@@
$cleandays = 100;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXDupe.pm
b/perl/DXDupe.pm
index bcc0f7b0ea843a0aeaf080781a4a1355b7c8db2b..4cc2be6ff936fccb7fb6693b642daade97b7ca19 100644
(file)
--- a/
perl/DXDupe.pm
+++ b/
perl/DXDupe.pm
@@
-21,7
+21,7
@@
$fn = "$main::data/dupefile";
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXHash.pm
b/perl/DXHash.pm
index 1ee8bb099bd2082938b2ba2f9b89ab9f118a7257..2dcb86794f65bea05fa247b4ee0f0771c4c78061 100644
(file)
--- a/
perl/DXHash.pm
+++ b/
perl/DXHash.pm
@@
-27,7
+27,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXLog.pm
b/perl/DXLog.pm
index 607630853b3a0de108a32c65c3c86f9a716afa61..22f8c808307ce3b4b3fe61f8ce0b6a70a502dd29 100644
(file)
--- a/
perl/DXLog.pm
+++ b/
perl/DXLog.pm
@@
-40,7
+40,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index d1ad9dd655c2ff1a106484289835f41115ecb5d0..6012d71d065cfa2bec14488d648c1bb68b9a8064 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-19,7
+19,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXM.pm
b/perl/DXM.pm
index bb6fb597d919e3ea6dff2d784af5c98033b2bc34..b6d191bbd30a03f1c019c8ae35303e226d3ed08a 100644
(file)
--- a/
perl/DXM.pm
+++ b/
perl/DXM.pm
@@
-26,7
+26,7
@@
my $fn = "$main::root/perl/Messages";
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 552709ddd29680a922e2783e34c1376419a2837a..3ea3211542a9cd80e4c1956833730b67a680d5de 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-34,7
+34,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 0bd23a7ea16e9c80ed95500d092d113e95caec6b..2168c7fc3cb5404842f01808abee2acc6b39b22d 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-38,7
+38,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXProtout.pm
b/perl/DXProtout.pm
index 67376e11f5efc5dd3e487949d0871dad6cdd2436..c87e96ca8f4378d2e97d70b2b72009bb8ef46c79 100644
(file)
--- a/
perl/DXProtout.pm
+++ b/
perl/DXProtout.pm
@@
-21,7
+21,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index 294a76c07774290b19bbea1a4141d6479bd0ee78..690a8ae4d99b2aaf1fe97c52fa82d7cb05de114f 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-20,7
+20,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index fc7cd024d7737a96326f8a4a69316069b8c696f4..3b701ebbc6da5b83953782c99e14fc9a6d4d548e 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-17,7
+17,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Editable.pm
b/perl/Editable.pm
index 86a951675cb94c8acb6cb7ecc278d4beaf03f2b0..f4bea483e68bd14ec79aa51aec20b17c25084c7d 100644
(file)
--- a/
perl/Editable.pm
+++ b/
perl/Editable.pm
@@
-17,7
+17,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/ExtMsg.pm
b/perl/ExtMsg.pm
index 4dbefbc594c13e7edc2b18071a6c5a442404ef26..8324a8ca3296d2401e67e4faacbdd95f0e390ec6 100644
(file)
--- a/
perl/ExtMsg.pm
+++ b/
perl/ExtMsg.pm
@@
-23,7
+23,7
@@
use IPC::Open3;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Filter.pm
b/perl/Filter.pm
index 5e89b08f68fe530ff08b1fd733863a7016a7aa05..bf7ff65c18a24c82df8eb4c45e7c7e7695b2e04d 100644
(file)
--- a/
perl/Filter.pm
+++ b/
perl/Filter.pm
@@
-36,7
+36,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Geomag.pm
b/perl/Geomag.pm
index e1ab6dd1c6ad3a977e9730bd9d1920df997a18a5..e74f50218f16f6b332a575d4d2eeba673611c67d 100644
(file)
--- a/
perl/Geomag.pm
+++ b/
perl/Geomag.pm
@@
-22,7
+22,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/IntMsg.pm
b/perl/IntMsg.pm
index 95c6ac74347793ce9f38f27d8af303bbe1265930..a940347d311366227a069b07e1d03ad9b79f0f28 100644
(file)
--- a/
perl/IntMsg.pm
+++ b/
perl/IntMsg.pm
@@
-13,7
+13,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Julian.pm
b/perl/Julian.pm
index 0bd1f168f0c84c150357e3f15f1f5f6595b961d2..ecef2d81e0f3bb5809ced2ebe4989114bc9c6eb3 100644
(file)
--- a/
perl/Julian.pm
+++ b/
perl/Julian.pm
@@
-13,7
+13,7
@@
package Julian;
use vars qw($VERSION $BRANCH @days @ldays @month);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH @days @ldays @month);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/K4UTE.pm
b/perl/K4UTE.pm
index eaac4d0048ad83b3efd0e2c67a869fb0b31552fc..174d313d24c686edd1ceefff42616d5e3a0148c1 100644
(file)
--- a/
perl/K4UTE.pm
+++ b/
perl/K4UTE.pm
@@
-11,7
+11,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Minimuf.pm
b/perl/Minimuf.pm
index 88d2be64c6c7ebdf65c771a5576545d8737b2e7c..319866696bb3ad196ea268c91240693560406e1b 100644
(file)
--- a/
perl/Minimuf.pm
+++ b/
perl/Minimuf.pm
@@
-48,7
+48,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 834d2087e7bf71bae6132695146a9fc30ff53d92..ef43b0bc24618b6033aa52520a009defdae1318e 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-14,7
+14,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/PC.pm
b/perl/PC.pm
index 6458d2a1d4b00138580d086b9df2f52595dd4352..5bce28b1f5bea78e7dda2209ce29228ece0c578e 100644
(file)
--- a/
perl/PC.pm
+++ b/
perl/PC.pm
@@
-11,7
+11,7
@@
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Prefix.pm
b/perl/Prefix.pm
index e934f5265f40be97e879dec79fa6712006ba4741..7e0eeb7a7c38538128c9f78e2367d293b37f09a2 100644
(file)
--- a/
perl/Prefix.pm
+++ b/
perl/Prefix.pm
@@
-20,7
+20,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Prot.pm
b/perl/Prot.pm
index 7435ae963e7c95566057c745c5f862288a0d3b73..be1d6282d5e947e132bd091fd10a0a5d1c983dfb 100644
(file)
--- a/
perl/Prot.pm
+++ b/
perl/Prot.pm
@@
-9,7
+9,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/QRZ.pm
b/perl/QRZ.pm
index f04181a1304908956e5124c9435d380bee58e837..87731185b22fc27b1b4696cd914235454b000b1f 100644
(file)
--- a/
perl/QRZ.pm
+++ b/
perl/QRZ.pm
@@
-12,7
+12,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/QXProt.pm
b/perl/QXProt.pm
index d3b4d7427b32cd13469e755576516ff4c2b14fa6..aadb0d2fd98d75432de6ac3438a942157e5778d3 100644
(file)
--- a/
perl/QXProt.pm
+++ b/
perl/QXProt.pm
@@
-35,7
+35,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Route.pm
b/perl/Route.pm
index 16ee88cb52b76b92af3f45f035cf26616a560751..7112734f0741a756a2585bab4f91f84f64e98a4d 100644
(file)
--- a/
perl/Route.pm
+++ b/
perl/Route.pm
@@
-23,7
+23,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Route/Node.pm
b/perl/Route/Node.pm
index ff3351b3d6aaac0ea698b3e3ca3f12ec0dac7e65..1fbd8f71a291a1cddab0b6c71430bea16c1610cb 100644
(file)
--- a/
perl/Route/Node.pm
+++ b/
perl/Route/Node.pm
@@
-16,7
+16,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Route/User.pm
b/perl/Route/User.pm
index bcd98a00ed3e591c86a995ad3f8c8be1abebd794..bf72bbb52eb2c7c0d74dc0b963070fb25dcaaf8e 100644
(file)
--- a/
perl/Route/User.pm
+++ b/
perl/Route/User.pm
@@
-15,7
+15,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Script.pm
b/perl/Script.pm
index 276aae5d3c32b7007fc2080b46da12f2f3e9ab1f..15f4d464082fa080766f46eabb05edc0b39a44c3 100644
(file)
--- a/
perl/Script.pm
+++ b/
perl/Script.pm
@@
-19,7
+19,7
@@
use IO::File;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 8e8f7fd06ea7f29941ea746d2359432540a836e1..6262d79e3b16cf8bec846bf5277cb44290eda296 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-22,7
+22,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Sun.pm
b/perl/Sun.pm
index 90c2370537b94cb85c23a12fa6a7409827858c16..0616d47321c5b57804b0e94c96745950e45b4ea1 100644
(file)
--- a/
perl/Sun.pm
+++ b/
perl/Sun.pm
@@
-34,7
+34,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Timer.pm
b/perl/Timer.pm
index 98132dec6578345a4b955b02af7eae67e5296377..4a1e1c42e165395145eb913d124bdab2007991b9 100644
(file)
--- a/
perl/Timer.pm
+++ b/
perl/Timer.pm
@@
-18,7
+18,7
@@
$notimers = 0;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/Verify.pm
b/perl/Verify.pm
index 2d89495f03734b8f99eb89847c2ba3d931695d31..58694eb5d1e7be6837ea21c90bf098357830b884 100644
(file)
--- a/
perl/Verify.pm
+++ b/
perl/Verify.pm
@@
-19,7
+19,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/WCY.pm
b/perl/WCY.pm
index ff2df512846cd5d70086b2f0ed891cd7266cde46..657a49cb172c32142983077ae6620ed0ccda835c 100644
(file)
--- a/
perl/WCY.pm
+++ b/
perl/WCY.pm
@@
-21,7
+21,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
) || 0
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 6893b7087b77a14353204c6def891390a76f2950..888ecc2fcd37aa39036de562a7b3ed93dabac060 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-121,7
+121,7
@@
$reqreg = 0; # 1 = registration required, 2 = deregister people
use vars qw($VERSION $BRANCH $build $branch);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
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
;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
|| (0,0))
;
$main::build += 11; # add an offset to make it bigger than last system
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += 11; # add an offset to make it bigger than last system
$main::build += $VERSION;
$main::branch += $BRANCH;