📦 apache / cloudberry

1
2
3
4
5
6
7
8
9
10
11
12
13
14#!/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);