diff options
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 { - } |