bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 17:13:22 -05:00
Code Issues Projects Releases Wiki Activity

This adds /usr/share/perl5 to @INC in distributions which don't adhere to the

Browse Source 
newest FHS.
This commit is contained in:
freesource 2001-10-06 21:12:35 +00:00
parent 7ebba544af
commit 4bb9980672
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gbootroot
View File

@ -79,7 +79,19 @@
# along with this program; if not, write to the Free Software # along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
use lib "/usr/share/perl5";
# For distributions that don't adhere to the FHS.
BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC);
if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5");
}
}
use Gtk; use Gtk;
use strict; use strict;
use BootRoot::Yard; use BootRoot::Yard;
@ -309,7 +321,7 @@ my $ars = {}; # anonymous hash
# How the Boot/Root set is constructed for the 2 disk compression method: # How the Boot/Root set is constructed for the 2 disk compression method:
# #
# 1. submit() start the process. # 1. submit() start the process.
# 2. kernel_moudles() sets the $kernel_version. # 2. kernel_modules() sets the $kernel_version.
# 3. lilo() is called. # 3. lilo() is called.
# 4. $ok determines what functions should be called for creating the # 4. $ok determines what functions should be called for creating the
# Boot disk. # Boot disk.