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;
 

Reply via email to