From fb585745adcd2935b179db1ce847318ec3724c4e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 12 Sep 2012 00:07:51 +0200
Subject: [PATCH] distro: Use our own Perl during bootstrap.

* distro/base.scm (linux-headers-boot0): Use PERL with %BOOT0-INPUTS
  instead of calling out to `nixpkgs-derivation*'.
---
 distro/base.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/distro/base.scm b/distro/base.scm
index e9f1b63ad0..c0c51ff0bc 100644
--- a/distro/base.scm
+++ b/distro/base.scm
@@ -1529,8 +1529,12 @@ identifier SYSTEM."
   (package (inherit linux-headers)
     (arguments `(#:implicit-inputs? #f
                  ,@(package-arguments linux-headers)))
-    (native-inputs `(("perl" ,(nixpkgs-derivation* "perl"))
-                     ,@%boot0-inputs))))
+    (native-inputs
+     (let ((perl (package-with-explicit-inputs perl
+                                               %boot0-inputs
+                                               (current-source-location))))
+       `(("perl" ,perl)
+         ,@%boot0-inputs)))))
 
 (define %boot1-inputs
   ;; 2nd stage inputs.