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


in reply to Using CVS for revision control

There is one additional point to bring up concerning Perl and CVS; the actual versioning itself. Perl's $VERSION variable assumes that version 5.101 is just a small update on 5.1 -- CVS believes that they are 100 revisions apart! Things get even more confusing when Perl claims that 5.2 is more recent than 5.101 This can lead to Wacky Hijinks(tm) if you set the $VERSION variable in your program based directly on CVS' $Revision$ tag. You have been warned.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

Replies are listed 'Best First'.
Re: Re: Using CVS for revision control
by Joost (Canon) on Aug 06, 2002 at 11:41 UTC
    I usually do something like
    $VERSION = sprintf "%d.%03d",q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/;

    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.