blob: 120c9b2d9d6d0fa6f895822e3b11f9158db4dd9d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#! perl
open my $fh, '<', 'VERSION'
or die "Cannot open VERSION for reading: $!";
my $VERSION = <$fh>; chomp $VERSION;
close $fh;
while (<>) {
s/PUT-COMPANY-NAME-HERE/Rakudo Perl 6/g;
s/PUT-PRODUCT-NAME-HERE/Rakudo Star $VERSION/g;
s/PUT-FEATURE-TITLE-HERE/Rakudo Star $VERSION/g;
print;
}
|