[commit: ghc] master: fingerprint.py: Invoke 'perl' manually (#8283) (70ccf23)

[git at git.haskell.org]

Repository : ssh://git at git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/70ccf23f7e2f67c395be4cb87c8f4a26dd65918d/ghc

>---------------------------------------------------------------

commit 70ccf23f7e2f67c395be4cb87c8f4a26dd65918d
Author: Muhaimin Ahsan <leroux at fezrev.com>
Date:   Fri Sep 13 01:26:32 2013 -0500

    fingerprint.py: Invoke 'perl' manually (#8283)
    
    This fixes the fingerprint script on windows, since we can't rely on
    using '#!/usr/bin/perl'
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

70ccf23f7e2f67c395be4cb87c8f4a26dd65918d
 utils/fingerprint/fingerprint.py |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/utils/fingerprint/fingerprint.py b/utils/fingerprint/fingerprint.py
index b0e599d..5738cda 100755
--- a/utils/fingerprint/fingerprint.py
+++ b/utils/fingerprint/fingerprint.py
@@ -55,8 +55,13 @@ def fingerprint(source=None):
   `sync-all` command will be run to get the current fingerprint.
   """
   if source is None:
-    sync_all = ["./sync-all", "log", "-1", "--pretty=oneline"]
-    source  = Popen(sync_all, stdout=PIPE).stdout
+    if sys.platform == 'win32':
+      # Can't rely on perl being located at `/usr/bin/perl`.
+      sync_all = ["perl", "./sync-all", "log", "-1", "--pretty=oneline"]
+    else:
+      sync_all = ["./sync-all", "log", "-1", "--pretty=oneline"]
+
+    source = Popen(sync_all, stdout=PIPE).stdout
 
   lib = ""
   commits = {}