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 CohenThread Previous | Thread Next