remove warnings from $BRANCH lines for 5.8.0

diff --git a/Changes b/Changes
index c25aca450a542837ac3bb2069d93cf18b58784fd..12558766ac3a7bc7d7ca488e8e03f49f33d4418f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 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=======================================================================

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;
 

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+)/ );
-$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;