Author: spadkins
Date: Mon Mar 6 08:13:38 2006
New Revision: 3611
Modified:
p5ee/trunk/App-Context/lib/App/Exceptions.pm
Log:
improve SVN version parsing
Modified: p5ee/trunk/App-Context/lib/App/Exceptions.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Exceptions.pm (original)
+++ p5ee/trunk/App-Context/lib/App/Exceptions.pm Mon Mar 6 08:13:38 2006
@@ -4,7 +4,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = sprintf '%2d.%02d', q$Revision$ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%03d", q$Revision$ =~ /(\d+)(\d{3})/;
my %e;