"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