libintl/make_patch.pl

   1 #!/bin/perl
   2 #
   3 use Text::Diff 'diff';
   4
   5 my $outfile="libintl-0.19.5.1.patch";
   6
   7 unlink $outfile;
   8
   9 my $orig_dir="intl.orig/";
  10 my $dest_dir="intl/";
  11
  12 opendir(DIR, $dest_dir);
  13 my @dest_files = readdir(DIR);
  14 closedir(DIR);
  15
  16 @orig_files = sort grep { /\.([chyl]|rc)$/; } @orig_files;
  17 @dest_files = sort grep { /\.([chyl]|rc)$/; } @dest_files;
  18
  19 if (open(OUT, "> $outfile")) {
  20         foreach my $dest_file (@dest_files) {
  21                 my $diff = diff($orig_dir.$dest_file, $dest_dir.$dest_file, { STYLE => "Unified" });
  22
  23                 $diff =~ s/$orig_dir//g;
  24                 $diff =~ s/$dest_dir//g;
  25
  26                 print OUT $diff;
  27         }
  28         close(OUT);
  29 }
  30