diff options
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index fec69884c..bc198bacf 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1510,55 +1510,6 @@ sub write_fstab { fs::write_fstab($o->{all_hds}, $o->{prefix}) if !$o->{isUpgrade} || $o->{migrate_device_names}; } -my @bigseldom_used_groups = ( -); - -sub check_prog { - my ($f) = @_; - - return if $f =~ m|^/| ? -x $f : whereis_binary($f); - - common::usingRamdisk() or log::l("ERROR: check_prog can't find the program $f and we're not using ramdisk"), return; - - my ($f_) = map { m|^/| ? $_ : "/usr/bin/$_" } $f; - remove_bigseldom_used(); - foreach (@bigseldom_used_groups) { - my (@l) = map { m|^/| ? $_ : "/usr/bin/$_" } @$_; - if (member($f_, @l)) { - foreach (@l) { - getAndSaveFile($_); - chmod 0755, $_; - } - return; - } - } - getAndSaveFile($f_); - chmod 0755, $f_; -} - -sub remove_unused { - $::testing and return; - if (@_ ? $_[0] : $::o->isa('interactive::gtk')) { - unlink glob_("/lib/lib$_*") foreach qw(slang newt); - unlink "/usr/bin/perl-install/auto/Newt/Newt.so"; - } else { - unlink glob_("/usr/X11R6/bin/XF*"); - } -} - -sub remove_bigseldom_used() { - log::l("remove_bigseldom_used"); - $::testing and return; - remove_unused(); - unlink "/usr/X11R6/lib/modules/xf86Wacom.so"; - unlink glob_("/usr/share/gtk/themes/$_*") foreach qw(marble3d); - unlink(m|^/| ? $_ : "/usr/bin/$_") foreach - (map { @$_ } @bigseldom_used_groups), - qw(lvm2), - qw(mkreiserfs resize_reiserfs mkfs.xfs fsck.jfs); -} - - #-############################################################################### #- pcmcia various #-############################################################################### |