Re: 3 packages 1 uniform version

jonasbn:

You could put an easily-recognized version statement in your modules, and sync them with a perl one-liner. So if your version statement was always in the form:

$VERSION='1.34';
[download]

then you could update all your versions to be the same with:

perl -pi -e 's/^$VERSION='\d\.\d\d';/$VERSION='2.56';/' foo.pl
[download]

...roboticus

Comment on Re: 3 packages 1 uniform version Select or Download Code

Replies are listed 'Best First'.
Re^2: 3 packages 1 uniform version by jonasbn (Scribe) on Feb 09, 2008 at 22:47 UTC
You gave me a marvelous idea, the updating of the version number is now a part of the distribution building. Thanks for the suggestion, you got me thinking outside the box.	[reply]
Re^3: 3 packages 1 uniform version by Anonymous Monk on Feb 11, 2008 at 07:37 UTC
I do this in all my packages: Create a VERSION.pm containing the following code: `package Foo::VERSION; $VERSION=(qw$Revision: 1.119 $)[1];` [download] Which is updated by cvs everytime I check the package in. In each subpackage I have the following line: `$VERSION = eval { require Foo::VERSION; do $INC{'Foo/VERSION.pm'}};` [download] Must be all on one line if you want it interpreted by CPAN etc.	[reply] [d/l] [select]
Re^4: 3 packages 1 uniform version by polettix (Vicar) on Feb 14, 2008 at 18:56 UTC
I'd simplify as follows: `Package Foo::VERSION; $VERSION = '$Revision: 1.119 $'; # or $VERSION = q$Revision: 1.119 $;` [download] and then `$VERSION = eval { require Foo::VERSION; $Foo::VERSION::VERSION };` [download] Hey! Up to Dec 16, 2007 I was named frodo72, take note of the change! Flavio perl -ple'$_=reverse' <<<ti.xittelop@oivalf Io ho capito... ma tu che hai detto?	[reply] [d/l] [select]