improve speed in customer search, #13364
[freeside.git] / bin / 19diff
1 #!/usr/bin/perl
2
3 my $file = shift;
4
5 chomp(my $dir = `pwd`);
6 $dir =~ s/freeside\//freeside1.9\//;
7
8 #$cmd = "diff -u $file $dir/$file";
9 $cmd = "diff -u $dir/$file $file";
10 print "$cmd\n";
11 system($cmd);
12