tools/update.pl

   1 use strict;
   2 use warnings;
   3 use Smart::Comments;
   4 use lib 'tools';
   5 require 'utils.pl';
   6 use File::stat;
   7 use File::Spec;
   8 use File::Compare;
   9 use File::Copy;
  10
  11 sub main {
  12     while (defined(my $rel = <>)) {
  13         chomp $rel;
  14         my $saved = rel2saved($rel);
  15         next if !-e $saved;
  16
  17         my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
  18
  19         copy($abs, $saved) or die $!;
  20     }
  21 }
  22
  23 main();