path: root/bin/23diff

#!/usr/bin/perl

my $file = shift;

chomp(my $dir = `pwd`);
$dir =~ s/freeside(\/?)/freeside2.3$1/;
warn $dir;

#$cmd = "diff -u $file $dir/$file";
$cmd = "diff -u $dir/$file $file";
print "$cmd\n";
system($cmd);