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