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

Re: Incrementing Extutils::Manifest's $VERSION

Thread Previous | Thread Next
From:
Larry Shatzer, Jr.
Date:
June 29, 2001 15:05
Subject:
Re: Incrementing Extutils::Manifest's $VERSION
Message ID:
002a01c1002a$793075d0$bb01a8c0@LSHATZER
"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.

./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";


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