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

Re: Incrementing Extutils::Manifest's $VERSION

Thread Previous | Thread Next
Jarkko Hietaniemi
June 28, 2001 21:40
Re: Incrementing Extutils::Manifest's $VERSION
Message ID:
On Thu, Jun 28, 2001 at 04:31:22PM -0700, Larry Shatzer, Jr. wrote:
> "Jarkko Hietaniemi" <> 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.

> ./ 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
> 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++; #
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About