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