From 1b94db0c531b1d9f7a3fc095a5b646fccffc20ec Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 21 Oct 2014 23:34:13 +0200
Subject: perl_checker cleanups

---
 tools/drakx-in-chroot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/drakx-in-chroot b/tools/drakx-in-chroot
index b8a211a43..223ebb78b 100755
--- a/tools/drakx-in-chroot
+++ b/tools/drakx-in-chroot
@@ -188,8 +188,8 @@ sub create_initial_symlinks() {
 	    symlink $from, $to or die "symlinking $to failed\n";
 	}
     }
-	$from = "$STAGE2_LOCATION_ROOTED/usr";
-	$to = "$SLASH_LOCATION/usr";
+	my $from = "$STAGE2_LOCATION_ROOTED/usr";
+	my $to = "$SLASH_LOCATION/usr";
 	symlink $from, $to or die "symlinking $to failed\n";
 	foreach ('bin', 'sbin', 'lib', 'lib64') {
 	    $from = "usr/$_";
-- 
cgit v1.2.1