bin/4diff

   1 #!/usr/bin/perl
   2
   3 my $file = shift;
   4
   5 chomp(my $dir = `pwd`);
   6 $dir =~ s/freeside(\/?)/freeside4$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