From 251ada7d7f2f8f0198ff2d2316f5a086f05da629 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 28 Aug 2012 01:25:50 -0500
Subject: Block Configure.pl from running from a git checkout and display a
 helpful message.

---
 Configure.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'Configure.pl')

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
-- 
cgit v1.1