7 Eigentlich sollte ein Einzeiler reichen, aber er ist schon ein wenig
10 diff -U 0 =(/usr/local/perl-5.8.0@17974/bin/perl -V:.\*) =(/usr/local/perl-5.8.0@17975/bin/perl -V:.\*)
12 See also: compare-snapshots.pl
21 GetOptions
(\
%OPT,"all!");
23 die "Usage: $0 perl_1 perl_2" unless @ARGV == 2;
25 my $pipe_remove_semi = "|perl -ple s:\\;\\\\z::"; # 5.6.2 had no semicolons
26 my $pipe_sort = "|sort";
28 open my $zsh, qq{zsh
-c
'diff -U 0 =($l -V:.\\*$pipe_remove_semi$pipe_sort) =($r -V:.\\*$pipe_remove_semi$pipe_sort)' |} or die;
29 CONFVAR
: while (<$zsh>) {