From 3efb824ba70e138a2063fe2a2609f4456fc7de0e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 19 Oct 2001 17:17:36 +0000
Subject: cleanup

---
 perl-install/common.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 8d8ab40dd..3dcacfb49 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -33,6 +33,7 @@ sub __ { $_[0] }
 sub salt {
     my ($nb) = @_;
     require devices;
+    local *F;
     open F, devices::make("random") or die "missing random";
     my $s; read F, $s, $nb;
     local $_ = pack "b8" x $nb, unpack "b6" x $nb, $s;
-- 
cgit v1.2.1