#!/usr/bin/perl
=pod
Eigentlich sollte ein Einzeiler reichen, aber er ist schon ein wenig
unuebersichtlich:
diff -U 0 =(/usr/local/perl-5.8.0@17974/bin/perl -V:.\*) =(/usr/local/perl-5.8.0@17975/bin/perl -V:.\*)
=cut
use strict;
die "Usage: $0 perl_1 perl_2" unless @ARGV == 2;
my($l,$r) = @ARGV;
open my $zsh, qq{zsh -c 'diff -U 0 =($l -V:.\\*) =($r -V:.\\*)' |} or die;
while (<$zsh>) {
next if /^@/;
next if /^.
(
archlib(?:exp)?|
bin(?:exp)?|
cf_time|
config_arg[\dc]+|
dynamic_ext|
extensions|
install.*|
libs.*|
man\d.*|
myuname|
perlpath|
prefix.*|
priv.*|
scriptdir.*|
sig_name.*|
site.*|
startperl|
zzzzzzzzzzzzzzz
)=/x;
next if /
=.*\.so\b
/x;
print;
}