projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
badafd579f44e5bc2654e62949c87539401029f1
[freeside.git]
/
3diff
1
#!/usr/bin/perl
2
3
my $file = shift;
4
5
chomp(my $dir = `pwd`);
6
$dir =~ s/freeside(\/?)/freeside3$1/;
7
warn $dir;
8
9
#$cmd = "diff -u $file $dir/$file";
10
$cmd = "diff -ubBw $dir/$file $file";
11
print "$cmd\n";
12
system($cmd);
13