From d5a136439dbb6d7191d90c44760c4025cb03d4cd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Nov 2004 13:16:14 +0000
Subject: minimal perl_checker compliance

---
 perl-install/standalone/drakfloppy | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index da90aec0d..242b11c3a 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -297,10 +297,9 @@ sub build_it() {
         err_dialog(N("Error"), N("There is no medium or it is write-protected for device %s.\nPlease insert one.", $device_combo->entry->get_text), { cancel => 1 }) ? goto test : return 0;
     }
   
-    local *STATUS;
-    open STATUS, $co or do { err_dialog(N("Error"), N("Unable to fork: %s", $!)); return };
-    my $log = join('', <STATUS>);
-    if (close STATUS) {
+    open(my $STATUS, $co) or do { err_dialog(N("Error"), N("Unable to fork: %s", $!)); return };
+    my $log = join('', <$STATUS>);
+    if (close $STATUS) {
         info_dialog(N("Floppy creation completed"), N("The creation of the boot floppy has been successfully completed \n"));
         ugtk2->exit;
     } else {
-- 
cgit v1.2.1