putversion

#!/usr/bin/env perl

use File::Basename;
use Cwd 'abs_path';
$dirname = dirname(abs_path($0));

$foo = `cat ${dirname}/VERSION | tr '-' ' '`;
chop $foo;
$foo = quotemeta $foo;
$files = join(" ", @ARGV);
$rev = '\\$Revision.*\\$';
$bar = "perl -pi -e \'s/$rev/$foo/\' $files";
system($bar);