Front page | perl.perl5.porters |
Postings from June 2001
"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