7 my $header = `cat doc/header.txt`;
9 # strip existing header
11 if ($new =~ /^(.*)\* Ceph - scalable distributed file system/s) {
12 my ($a,@b) = split(/\*\/\n/, $new);
13 $new = join("*/\n",@b);
15 $new = $header . $new;
21 system "diff $fn $fn.new";
22 rename "$fn.new", $fn;