From 80c00b591396494123c5e1823966ccc0768f8ca1 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Fri, 27 Jul 2012 01:58:45 -0500
Subject: Add script to patch wxs file generated by Wix "heat" command.

---
 skel/tools/build/Makefile.in  |  2 +-
 skel/tools/build/wxs-patch.pl | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 skel/tools/build/wxs-patch.pl

diff --git a/skel/tools/build/Makefile.in b/skel/tools/build/Makefile.in
index c8a81fb..2258128 100644
--- a/skel/tools/build/Makefile.in
+++ b/skel/tools/build/Makefile.in
@@ -156,7 +156,7 @@ perlcritic:
 msi:
 	@$(CP) c:/strawberry/c/bin/libgcc_s_sjlj-1.dll $(PARROT_BIN_DIR)
 	cmd /c heat dir $(PREFIX_DIR) -gg -sfrag -template product -cg RakudoStar -out $(STAR).wxs
-	$(PERL) -ibak tools/build/wix-patch.pl $(STAR).wxs
+	$(PERL) -ibak tools/build/wxs-patch.pl $(STAR).wxs
 	cmd /c candle $(STAR).wxs
 	cmd /c light -b $(PREFIX_DIR) $(STAR).wixobj
 
diff --git a/skel/tools/build/wxs-patch.pl b/skel/tools/build/wxs-patch.pl
new file mode 100644
index 0000000..120c9b2
--- /dev/null
+++ b/skel/tools/build/wxs-patch.pl
@@ -0,0 +1,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;
+}
+
+
-- 
cgit v1.1