diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-03-06 16:07:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-03-06 16:07:04 +0000 |
| commit | 4284892973d9ca067086d24cfd689524ac681025 (patch) | |
| tree | 744db69252cf390aa887409e07c6825cff3009e8 /perl-install/devices.pm | |
| parent | 79d497b0da8dcc903446179d153c3fc3c4f72db5 (diff) | |
| download | drakx-backup-do-not-use-4284892973d9ca067086d24cfd689524ac681025.tar drakx-backup-do-not-use-4284892973d9ca067086d24cfd689524ac681025.tar.gz drakx-backup-do-not-use-4284892973d9ca067086d24cfd689524ac681025.tar.bz2 drakx-backup-do-not-use-4284892973d9ca067086d24cfd689524ac681025.tar.xz drakx-backup-do-not-use-4284892973d9ca067086d24cfd689524ac681025.zip | |
(find_free_loop): fix
Diffstat (limited to 'perl-install/devices.pm')
| -rw-r--r-- | perl-install/devices.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 38df41d5c..051ec990d 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -39,12 +39,10 @@ sub del_loop { sub find_free_loop { foreach (0..7) { my $dev = make("loop$_"); - { - local *F; - sysopen F, $dev, 2 or next; - !ioctl(F, c::LOOP_GET_STATUS(), my $tmp) && $! == 6 or next; #- 6 == ENXIO - close F; - } + local *F; + sysopen F, $dev, 2 or next; + !ioctl(F, c::LOOP_GET_STATUS(), my $tmp) && $! == 6 or next; #- 6 == ENXIO + close F; return $dev; } die "no free loop found"; |