develooper Front page | perl.perl5.porters | Postings from June 2001

Re: Incrementing Extutils::Manifest's $VERSION

Thread Previous | Thread Next
From:
Jarkko Hietaniemi
Date:
June 28, 2001 21:40
Subject:
Re: Incrementing Extutils::Manifest's $VERSION
Message ID:
20010628234024.K21832@chaos.wustl.edu
On Thu, Jun 28, 2001 at 04:31:22PM -0700, Larry Shatzer, Jr. wrote:
> "Jarkko Hietaniemi" <jhi@iki.fi> wrote:
> > Incidentally: could someone write a script that trawls through the lib
> > and ext of two Perl source code trees looking for .pm and .xs versions
> > and alerting if the version is the same but the files aren't?
> > I suspect that we have a truckload of such cases between 5.6.0 and
> > bleadperl...
> 
> Here is a script I whipped up in my spare time while at work.

Thanks!  I already used the script to ferret out some changed modules.

> ./lib-ext-version-diff.pl codebranch1 codebranch2 > output (or your however
> you want it).
> 
> I know the code is not beautiful, but thought I'd send out what I had after
> I got a semi working copy. The part that needs the most work is parseing the
> version numbers out from the various files. I am using regex to pull them
> out, but thought of another way, but did not want to try it, where you use
> lib that directory, and just have perl do the work with the scope and print
> $CGI::Carp::VERSION, for example, if anyone can think of a way of doing
> that, it would be great, but probably would not work in all cases.
> 
> I'll take any pointers people show me, I already know the code is half
> spaghetti, but a starting point.
> 
> -- Larry
> $_=q.$wHFGnABGUREcREYuNPXRE
> NAQyNEEL="larry".;s!^\$(.+)=(.)(\S+)(\2)$!($foo=(
> $foo=$1))=~s,((?:n|c|u|y).), $1,g!ex;@x=split("",$3,-@-);map{$x[$y]=chr((
> $x[$y]=ord($x[$y]))+=$_);++$y}qw(4 17 -9 -4 -5);$print=join("",@x);
> $foo=~y.A-Za-z.n-za-mN-ZA-M.;$japh="$+$foo.\\n$2;";
> eval"$print $japh";
> 



-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About