Author: kwilliams
Date: Mon Mar 26 18:57:05 2007
New Revision: 9334
Added:
ExtUtils-CBuilder/trunk/bleadcheck.pl (contents, props changed)
Log:
Generate patch against blead
Added: ExtUtils-CBuilder/trunk/bleadcheck.pl
==============================================================================
--- (empty file)
+++ ExtUtils-CBuilder/trunk/bleadcheck.pl Mon Mar 26 18:57:05 2007
@@ -0,0 +1,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;
+}
