vcs.maemo.org Git - pkg-perl/blob - deb-src/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/bleadcheck.pl

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