]> gitweb @ CieloNegro.org - sugar.git/blob - tools/diff.pl
tools/export.pl
[sugar.git] / 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);