Block Configure.pl from running from a git checkout and display a helpful message.

1 files changed, 16 insertions, 0 deletions

diff --git a/Configure.pl b/Configure.pl
index 86e4047..2814888 100644
--- a/Configure.pl
+++ b/Configure.pl
@@ -16,6 +16,14 @@ my $lang = 'Rakudo';
 my $lclang = lc $lang;
 my $uclang = uc $lang;
 
+if (-d '.git') {
+    sorry("I see a .git directory here -- you appear to be trying",
+          "to run Configure.pl from a clone of the Rakudo Star git",
+          "repository.",
+          "",
+          download_text());
+}
+
 MAIN: {
     if (-r "config.default") {
         unshift @ARGV, shellwords(slurp('config.default'));
@@ -174,6 +182,14 @@ END
     return;
 }
 
+
+sub download_text {
+    ("The git repository contains the tools needed to build a Rakudo Star",
+     "release, but does not contain a complete Rakudo Star release.",
+     "To download and build the latest release of Rakudo Star, please",
+     "download a .tar.gz file from https://github.com/rakudo/star/downloads .")
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4