summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-26 14:11:43 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-26 22:15:28 +0200
commit6d3faeb9846f336be402f1acab8ffabf3233560f (patch)
treea806282f568f24375418408581da63ef1d32baf4 /perl-install/install/any.pm
parent645d131e5297764a853d504366f409b3952760b1 (diff)
downloaddrakx-6d3faeb9846f336be402f1acab8ffabf3233560f.tar
drakx-6d3faeb9846f336be402f1acab8ffabf3233560f.tar.gz
drakx-6d3faeb9846f336be402f1acab8ffabf3233560f.tar.bz2
drakx-6d3faeb9846f336be402f1acab8ffabf3233560f.tar.xz
drakx-6d3faeb9846f336be402f1acab8ffabf3233560f.zip
drop (broken) support for Alpha, PPC, Sparc & most of IA64
Including Xsun, silo & yaboot support Rationale: it's unused/unmaintained for years and those arches are beyond any hope of being usefull any day... They just got in the way... Part of IA64 support is still kept (eg: support for GPT, EFI, right xorg driver at install, ...) as it might be usefull to extend to other arches Next to consider: Xbox?
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm6
1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index c0dcb86af..09f55f200 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -859,9 +859,6 @@ sub getAndSaveAutoInstallFloppies {
eval { modules::load('loop') };
- if (arch() =~ /ia64/) {
- #- nothing yet
- } else {
my $mountdir = "$::prefix/root/aif-mount"; -d $mountdir or mkdir $mountdir, 0755;
my $param = 'kickstart=floppy ' . generate_automatic_stage1_params($o);
@@ -904,7 +901,6 @@ sub getAndSaveAutoInstallFloppies {
}
rmdir $mountdir;
$img;
- }
}
@@ -934,7 +930,7 @@ sub loadO {
my $o;
foreach (removable_media__early_in_install()) {
my $dev = devices::make($_->{device});
- foreach my $fs (arch() =~ /sparc/ ? 'romfs' : ('ext2', 'vfat')) {
+ foreach my $fs (qw(ext2 vfat)) {
eval { fs::mount::mount($dev, '/mnt', $fs, 'readonly'); 1 } or next;
if (my $abs_f = find { -e $_ } "/mnt/$f", "/mnt/$f.pl") {
$o = loadO_($O, $abs_f);