On Thu, 10 Aug 2000, Billy Donahue wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> On 10 Aug 2000, Randal L. Schwartz wrote:
> > Ask> On 8 Aug 2000, Randal L. Schwartz wrote:
> >
> > >> $VERSION = (qw$Revision: 1.6 $ )[-1];
> >
> > Ask> in 4 revisions you would have regretted that if you actually used
> > Ask> the $VERSION for anything, no?
> >
> > Then it's time for version 2! :)
>
> This raises an interesting question...
>
> Is it possible to integrate the new perl-5.6.0 `v4.2.20' version-quoting
> with CVS tags?
That's easy. I always use the following code:
$Apache::VMonitor::VERSION = do { my @r = (q$Revision: 1.2 $ =~
/\d+/g); sprintf "%d."."%02d" x $#r, @r };
So now you add "v." in the format part and you are all set!
$Apache::VMonitor::VERSION = do { my @r = (q$Revision: 1.2 $ =~
/\d+/g); sprintf "v.%d."."%02d" x $#r, @r };
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://apachetoday.com http://jazzvalley.com
http://singlesheaven.com http://perlmonth.com perl.org apache.org
