6 my $diff_file = "temp.diff";
7 my $remote_machine = 'cpvedev@cpvedev';
9 !system "svn diff > $diff_file" or die "$!";
10 !system 'scp ' . $diff_file . ' cpvedev@cpvedev:cpve_trunk/' or die "$!";
12 !system "ssh -l cpvedev cpvedev \'cd ~/cpve_trunk && svn revert -R . && patch -p0 < temp.diff\'" or die "$!";