fix $BRANCH auto revisioning code

[spider.git] / perl / QSL.pm

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;