fix $BRANCH auto revisioning code

fix year in copyright in cluster.pl

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index f6fc50747f9a5fa005099630777770e4cdec2986..351fb69f16bb1804840d006844247a217a33c5bb 100644 (file)
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -47,7 +47,7 @@ $total_in = $total_out = 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,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 0b564064ee15989bbc2c1af12571ccd790357082..702ee71b1ebd1652e34ed7be3d6a3e3f737ba1bd 100644 (file)
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -40,7 +40,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,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 9e8998748f6ee89ea884bc7b76babef1f609c2c1..a4170a0e6dc3fbc7cf1394fc21e276c355c76a37 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,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 df6a15571e112f14864960723aafacf621d19ec2..2a94f4e9b62d3864264e0f2711e9a04eab4e8af5 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,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 728bb615538cdb7a6d8cdfbeac1bf74babf21c77..4b118385e234b72e070884ff2a4f8cfb7965555f 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,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 2c2fc5907f7b1ce8be88cf279546588976a5a941..e7adf4adfa1453eba0ec2911338d5ab62193e6d5 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/Chain.pm b/perl/Chain.pm
index 60266c755716d84d3aa625c90ad2b8a25e84b671..820d7cfbe25e85bcdefe911d391f515091b970fd 100644 (file)
--- a/perl/Chain.pm
+++ b/perl/Chain.pm
@@ -5,7 +5,7 @@ use Carp;
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,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 803f762f729a4ea7b1aa54f49dc6261f498b3503..f1e7d53705e3a6df1e7e146e39ba693dba6862e8 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,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 174d313d24c686edd1ceefff42616d5e3a0148c1..d2e38eed1195ec4f5f8b82da1017cb175fd45dae 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,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 e7736f8a138d64a367865bce605631389f96f861..c977ae22b84c2bf24b7beacb17c3249875d30bff 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,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 536e7bb363dc3cea6e7e1cb3c9f7dc9a83f74119..4bc5810957ddc36d6ceac0f0079336b5be8de94d 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -117,7 +117,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,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 76bfa9314926046d12ed18a00a3221746f497b82..64bff8e6933f4e0a4c33f2da5deb3372b6dd1e6a 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -49,7 +49,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,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 b904e14cf7f1023bd1b808ae20fa9b4a56843356..288f4603a4de122ac790a9fe42724ec572c0ee76 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,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 868420585b70e416e48e9af0ed56e27a09a524ff..e4301d7b494d467f762c18ec454be0d02faded82 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,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 a088866c5873e675586b4a72c8c93c6565170e70..8d2673d23bbe5cabfb4f4f0b99793221cd717270 100644 (file)
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -51,7 +51,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,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 416dea0a9e79caadb7e923c2e2d2585b5ca04f09..9954764727c062d1c0e3f5489b81aeeb71303728 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,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 3ccb23c89dd22df1b21369691cd2cf4950f8caf8..ac4dea2172a6f991c81b4c897f7cb512c69a8dcc 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,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 2dcb86794f65bea05fa247b4ee0f0771c4c78061..8b80ad7c023411d2596b7fbd6906dd011fcc7314 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,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 f96ab44aa092863d036060b3462d1e4aecea3c2f..713d18c73137a0db3086b3e0bf34509517ba44f4 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,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 752e72acd64aaa5470d0d3cae4cb619041d0ed4a..444e7c5f96e77af737939fa2d17033baad14c2f0 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,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 b6d191bbd30a03f1c019c8ae35303e226d3ed08a..96aa1eff2b77955a1cc8ce3837dd3ee70e026e33 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,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 04ef99cb8ecffccfb21d7215b590a886497d2a8d..8987d9a05b2bbad9297f98b05f4eab79e6daaf24 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,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 67869dd57670805332bd77aa9a475baa94152ab3..db5bfabee03c93fc8cf9645a6192add3a064803f 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,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 b31eacdfe111942ded8607bc9759d85e1179a56c..34419e3be4c13986c07ceb6ecd4a1102d4368c27 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,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 b254ae5ab1723b33b159058014af9a146295afb4..eb43c595b7e1f3e6fde712a4f3255017cc6e4980 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.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,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 705e5cc6c6eb02bdae3acf8eb003889182645205..8ae43978a62dbbe4b39156dc6353034bcb284f59 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,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 f4bea483e68bd14ec79aa51aec20b17c25084c7d..87261dc49dfbfd7d87af99ad18bc591d80aeca55 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,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 f1472789152fbfc3836142577d8831e86a4b591e..9fce5d513debc358c6c79a4a5195e4e8f5166fc9 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,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 4443fc5570ac2360d40af67587c5d10f028aeec4..2403ace860d60412f1fd387971b50077290eb19a 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,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 e74f50218f16f6b332a575d4d2eeba673611c67d..85529636d320717b670d74e61c42e36154ac7e8d 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,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 a940347d311366227a069b07e1d03ad9b79f0f28..60770208f9bb848aed48e0a50edd7b005be8b045 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,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 ecef2d81e0f3bb5809ced2ebe4989114bc9c6eb3..a7111486f54f1542010f370d868bd2d8fac978f8 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,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 174d313d24c686edd1ceefff42616d5e3a0148c1..d2e38eed1195ec4f5f8b82da1017cb175fd45dae 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/LRU.pm b/perl/LRU.pm
index 30b264a525c1ec4afb17d4705d91f8e90ca136de..3bc66f0b9cc207f1facee7353dd0d3d3987dfda2 100644 (file)
--- a/perl/LRU.pm
+++ b/perl/LRU.pm
@@ -28,7 +28,7 @@ use vars qw(@ISA);
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,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 319866696bb3ad196ea268c91240693560406e1b..6c23882c13d082d715406aa60a15002ac6505f01 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/Mrtg.pm b/perl/Mrtg.pm
index e2d7c0222dfde2e9bf898d92d68afc25dc4224db..43de518e4ffd31ae9f3cedce6478793b4692c4c1 100644 (file)
--- a/perl/Mrtg.pm
+++ b/perl/Mrtg.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,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 00569928165bb2a630862b4d1fd9603ee05f6d8a..c36374e1edc769706cc2d4d28973751fe2a7bd0a 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,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 5bce28b1f5bea78e7dda2209ce29228ece0c578e..69c433f4d8e0ab0aead966ea8bef3255641e618e 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,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 91f7c5cee44a3753cf90256ca565f007c16d033e..f8d00a0621f6d3113ab093566fd12ae3690093c2 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.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,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 23de1538198bf2c72aa3764d7f3856c41e7868a5..57de50a8b46cd0b0bc18c87cb9fb9431a94448b5 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,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 87731185b22fc27b1b4696cd914235454b000b1f..fc524c29533c7d5652f489e5eaf29b547f72cfba 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/QSL.pm b/perl/QSL.pm
index d7dc8b2c0fced88746f56db95bd98de9c994160c..7d8c008da5ac32bb9cc60f29675978e2c9f21357 100644 (file)
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -16,7 +16,7 @@ use Prefix;
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,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 43dbb03f17f31b8cc59b936675371e06f5f066c2..ccf7c83df19f7035fb9cc01db5a41050da4964a7 100644 (file)
--- a/perl/QXProt.pm
+++ b/perl/QXProt.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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 
@@ -98,7 +98,7 @@ sub normal
 
        my @par = map {/^_/ ? split(/=/,$_,2) : ()} split /,/, $rest;
        no strict 'refs';
-       my $pkg = "Thingy::${class}";
+       my $pkg = 'Thingy::' . lcfirst $class;
        my $t = $pkg->new(_tonode=>$tonode, _fromnode=>$fromnode,
                                          _msgid=>$msgid, _hoptime=>$newhoptime,
                                          _newdata=>$rest, _inon=>$self->{call},

diff --git a/perl/QXProt/QXI.pm b/perl/QXProt/QXI.pm
index aacfae68e95b46df86f1ca20c8996b8c0a066b4b..d884c24c05cc9e0d3aaecbd4beda9d5e046121f6 100644 (file)
--- a/perl/QXProt/QXI.pm
+++ b/perl/QXProt/QXI.pm
@@ -16,7 +16,7 @@ use vars qw(@ISA $VERSION $BRANCH);
 @ISA = qw(QXProt);
 
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/QXProt/QXP.pm b/perl/QXProt/QXP.pm
index ec9f96dcf1fe2ca49a0a4e498c8c30efc776d617..d4b4c2892fdd0f8e04633efb8a05ed013c4fa447 100644 (file)
--- a/perl/QXProt/QXP.pm
+++ b/perl/QXProt/QXP.pm
@@ -16,7 +16,7 @@ use vars qw(@ISA $VERSION $BRANCH);
 @ISA = qw(QXProt);
 
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/QXProt/QXR.pm b/perl/QXProt/QXR.pm
index ad23e2b85543b47506fabce99b9998fc51fa4d13..58506f4c8b2fe33e8777256521a2801bc627267a 100644 (file)
--- a/perl/QXProt/QXR.pm
+++ b/perl/QXProt/QXR.pm
@@ -17,7 +17,7 @@ use vars qw(@ISA $VERSION $BRANCH);
 @ISA = qw(QXProt);
 
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,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 a9f80fea4e3afe8b1e546c88444fd202467141f8..68b71eb6d2eb4701c04d5c2f83fde33b7d95d408 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,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 3c4addd01c841ab41d54c45c63e779c0cb734128..d9395ec8bfff96ca623ac9bdc49d0e656edaeeba 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,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 b9862e6de5f0b847a627a4af0279e2043cc85660..96a1e448ccf9e5223b0e0e822870568441edb03b 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,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 3128dcde6486021bdce8ef15379f70f505108873..0d139c313c1fd9e678e5df5c8aa42a496d6e5cc9 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,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 4b0e7c72929ba3822afe2bbc0c3faebc39b709ed..02d2590260322e8050f4198e770eda7d974e920e 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.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,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 0616d47321c5b57804b0e94c96745950e45b4ea1..61b7450b85cd54bfe2d7cd485bcf462611806e41 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 87ee391adece15a8da1ac799ee2e0ca0be1867c1..7ae3d8f44bb87e2fa093f347224f48be2213e7cd 100644 (file)
--- a/perl/Thingy.pm
+++ b/perl/Thingy.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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/Thingy/Route.pm b/perl/Thingy/Route.pm
index ccdb53fe17902295c679fd29f4f3a30ab7bb8bbe..514d50e829ef5c7165ca4f23b332370ffd2c9161 100644 (file)
--- a/perl/Thingy/Route.pm
+++ b/perl/Thingy/Route.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,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 168dd3f5fcb5490fe65e7d636b7ba401d32c34eb..0ab2af10bd48807de026cdcc3593adcb7c47ea6f 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/UDPMsg.pm b/perl/UDPMsg.pm
index 72e53de813cfd462c7459c4b276adf37f88d75bf..4e7111d517168163d8d572eaeaf1bd8428982150 100644 (file)
--- a/perl/UDPMsg.pm
+++ b/perl/UDPMsg.pm
@@ -34,7 +34,7 @@ $total_in = $total_out = 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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 

diff --git a/perl/USDB.pm b/perl/USDB.pm
index 4957539e6cf556214c5c0c5ebb83b48393a25582..0115c712ef03b640b5f2755ca0750c803e3a051b 100644 (file)
--- a/perl/USDB.pm
+++ b/perl/USDB.pm
@@ -17,7 +17,7 @@ use DXDebug;
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,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 58694eb5d1e7be6837ea21c90bf098357830b884..c786fbc148fbc594a950652d80e2f0ad293aa8ac 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,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 657a49cb172c32142983077ae6620ed0ccda835c..db44a2333faee99ffd3990358cd4b34dbed5915a 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,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 6833f929b743477229ff0846a7794dcfbc465171..01d2809e2e18ee007eb4e4f3245dc29ed8de2ea4 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -126,7 +126,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,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += 4;                             # add an offset to make it bigger than last system
 $main::build += $VERSION;
 $main::branch += $BRANCH;
@@ -402,7 +402,9 @@ $build = "$build.$branch" if $branch;
 Log('cluster', "DXSpider V$version, build $build started");
 
 # banner
-dbg("Copyright (c) 1998-2002 Dirk Koopman G1TLH");
+my ($year) = (gmtime($main::systime))[5];
+$year += 1900;
+dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
 dbg("DXSpider Version $version, build $build started");
 
 # load Prefixes