summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-25 13:16:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-25 13:16:14 +0000
commitd5a136439dbb6d7191d90c44760c4025cb03d4cd (patch)
treef665c3ac0884ab9a1e04fcc117ab3e38df217793 /perl-install
parent77594868b1cb9b5c6cf7656cdcd5da08a5b2d457 (diff)
downloaddrakx-d5a136439dbb6d7191d90c44760c4025cb03d4cd.tar
drakx-d5a136439dbb6d7191d90c44760c4025cb03d4cd.tar.gz
drakx-d5a136439dbb6d7191d90c44760c4025cb03d4cd.tar.bz2
drakx-d5a136439dbb6d7191d90c44760c4025cb03d4cd.tar.xz
drakx-d5a136439dbb6d7191d90c44760c4025cb03d4cd.zip
minimal perl_checker compliance
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfloppy7
1 files 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 {