Stew Benedict wrote:
[...]
>What you may be able to do is use "get_mac_model" and change $type to dos:
>
>sub zero_MBR {
> my ($hd) = @_;
> #- force the standard partition type for the architecture
> my $type = arch() eq "alpha" ? "bsd" : arch() =~ /^sparc/ ? "sun" : \
>arch() eq "ppc" ? "mac" : "dos";
> #- IBM PPC machines use DOS partition table
> $type = "dos" if (detect_devices::get_mac_model =~ /^IBM/);
> require("partition_table_$type.pm");
> bless $hd, "partition_table_$type";
> $hd->{primary} = $hd->clear_raw();
> delete $hd->{extended};
>}
>
Ok, I'm back on it again :). I had already brute forced this with a
simple $type = "dos". Now I still get a "warning: bad magic number at
/usr/bin/perl-install/partition_table_emtpy.pm line 31." It looks like
this code is looking for a zero block on the drive but I don't see
offhand where it is called....
BTW, it does say it found a dos partition table at sector 0, but they
may be simply due to my hack. I haven't read the code close enough to
know for sure.
-todd
