skel/tools/build/wxs-patch.pl


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;
}