[svn:p5ee] r3611 - p5ee/trunk/App-Context/lib/App

[email protected]
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]> 
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;
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.