From f4ecf27def03364a9e81e0eb8390628b89aca61b Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Sun, 2 Jun 2013 23:32:09 +0200
Subject: [PATCH] Fix Perl warning about $path masking earlier definition

---
 src/lib/Hydra/Controller/Build.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/lib/Hydra/Controller/Build.pm b/src/lib/Hydra/Controller/Build.pm
index 511cae8f..03c18fcc 100644
--- a/src/lib/Hydra/Controller/Build.pm
+++ b/src/lib/Hydra/Controller/Build.pm
@@ -170,9 +170,9 @@ sub defaultUriForProduct {
 
 sub checkPath {
     my ($self, $c, $path) = @_;
-    my $path = pathIsInsidePrefix($path, $Nix::Config::storeDir);
-    error($c, "Build product refers outside of the Nix store.") unless defined $path;
-    return $path;
+    my $p = pathIsInsidePrefix($path, $Nix::Config::storeDir);
+    error($c, "Build product refers outside of the Nix store.") unless defined $p;
+    return $p;
 }