Add ARM files

[dh-make-perl] / dev / arm / libextutils-cbuilder-perl / libextutils-cbuilder-perl-0.23 / bleadcheck.pl

diff --git a/dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/bleadcheck.pl b/dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/bleadcheck.pl
new file mode 100755 (executable)
index 0000000..dd5a60d
--- /dev/null
+++ b/dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/bleadcheck.pl
@@ -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;
+}