diff options
| author | Christian Belisle <cbelisle@mandriva.com> | 2002-01-13 16:42:53 +0000 |
|---|---|---|
| committer | Christian Belisle <cbelisle@mandriva.com> | 2002-01-13 16:42:53 +0000 |
| commit | e4dc7c505c87b5e145be98ea944b7dab026f3c7a (patch) | |
| tree | 38b90f743f8b4f4edbc41e08fc9922cfb070aeaf /transfugdrake.pm | |
| parent | 2fa4d19c2ac9059ebab467632d1f970ff064b748 (diff) | |
| download | transfugdrake-e4dc7c505c87b5e145be98ea944b7dab026f3c7a.tar transfugdrake-e4dc7c505c87b5e145be98ea944b7dab026f3c7a.tar.gz transfugdrake-e4dc7c505c87b5e145be98ea944b7dab026f3c7a.tar.bz2 transfugdrake-e4dc7c505c87b5e145be98ea944b7dab026f3c7a.tar.xz transfugdrake-e4dc7c505c87b5e145be98ea944b7dab026f3c7a.zip | |
update
Diffstat (limited to 'transfugdrake.pm')
| -rw-r--r-- | transfugdrake.pm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/transfugdrake.pm b/transfugdrake.pm index 12ab8d9..eccec52 100644 --- a/transfugdrake.pm +++ b/transfugdrake.pm @@ -8,12 +8,7 @@ sub arch() { } # From pixel and gc -sub cat_ { - local *F; - open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; - my @l = <F>; - wantarray ? @l : join '', @l -} +sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l } # From pixel and gc sub typeFromMagic { @@ -33,7 +28,7 @@ sub typeFromMagic { } return -1; } - + sub get_windows_partition { my $in = $_; @@ -86,6 +81,7 @@ sub get_windows_partition { if($type eq "NTFS" || $type eq "FAT32" || $type eq "FAT") { # printf "$dev: type <0x%0x> (%s)\n", $type, $type2name{$type}; $fat_parts->{$dev} = $type; + } } return $in->ask_from_list_(_("Select your windows partition"), @@ -105,5 +101,4 @@ sub get_windows_config { } sub get_linux_config { - } |