gclib2/fix_headers.pl

   1 #!/usr/bin/perl
   2
   3 open (FILE, "< headers.txt") or die "open file";
   4 @files = <FILE>;
   5 foreach $file (@files) {
   6         chomp $file;
   7         print "cp -f $file include/\n";
   8         system "cp -f $file include/";
   9 }
  10 close FILE;