tools/diff.pl

   1 use strict;
   2 use warnings;
   3 use Smart::Comments;
   4 use lib 'tools';
   5 require 'utils.pl';
   6 use File::Spec;
   7 use File::Path;
   8
   9 sub main {
  10     my $arg = shift;
  11
  12     my $rel   = File::Spec->abs2rel($arg, $ENV{HOME});
  13     my $abs   = File::Spec->rel2abs($rel, $ENV{HOME});
  14     my $saved = rel2saved($rel);
  15
  16     system('diff', '-u', $abs, $saved);
  17 }
  18
  19 main($ARGV[0] // die);