1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/usr/bin/perl
# A script to check a local copy against bleadperl, generating a blead
# patch if they're out of sync. An optional directory argument will
# be chdir()-ed into before comparing.
use strict;
chdir shift() if @ARGV;
my $blead = "~/Downloads/perl/bleadperl";
diff( "$blead/lib/ExtUtils/CBuilder.pm", "lib/ExtUtils/CBuilder.pm");
diff( "$blead/lib/ExtUtils/CBuilder", "lib/ExtUtils/CBuilder",
qw(t Changes .svn) );
diff( "$blead/lib/ExtUtils/CBuilder/t", "t",
qw(.svn) );
######################
sub diff {
my ($first, $second, @skip) = @_;
local $_ = `diff -ur $first $second`;
for my $x (@skip) {
s/^Only in .* $x\n//mg;
}
print;
}
|
