http://www.perlmonks.org?node_id=187990


in reply to Re: Using CVS for revision control
in thread Using CVS for revision control

I usually do something like 
$VERSION = sprintf "%d.%03d",q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/;

[download]

That will give a $VERSION = '1.015' for $Revision 1.15 

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.

[download]

In Section Meditations