From b0d554c4155060ed665844fdf7b2a08db9bb3356 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Nov 2002 20:50:12 +0000
Subject: perl_checker adaptations

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

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

diff --git a/perl-install/swap.pm b/perl-install/swap.pm
index 7b7c51586..e170c2473 100644
--- a/perl-install/swap.pm
+++ b/perl-install/swap.pm
@@ -81,6 +81,7 @@ sub make($;$) {
     my $rdev = (stat $devicename)[6];
     $rdev == 0x300 || $rdev == 0x340 and die "$devicename is not a good device for swap";
 
+    local *F;
     sysopen F, $devicename, 2 or die "opening $devicename for writing failed: $!";
 
     if ($version == 0) { $maxpages = $V0_MAX_PAGES }
-- 
cgit v1.2.1