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

Fixed another non-fhs path issue when fooling around in mdk.

Browse Source 
# I always thought the BEGIN statements were executed before everything else,
# but I have discovered that in this case it has to be placed before the
# use statements if exec /usr/bin/gbootroot is done via $PATH .. I guess
# that makes sense because $PATH is established in the BEGIN.
This commit is contained in:
freesource 2002-02-04 18:22:18 +00:00
parent 27a6d3fbd6
commit d97ed5d819
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gbootroot
View File

@ -207,13 +207,11 @@
# Here's the program: # Here's the program:
use Gtk;
use strict;
use BootRoot::BootRoot;
init Gtk;
set_locale Gtk;
# For distributions that don't adhere to the most recent FHS. # For distributions that don't adhere to the most recent FHS.
# I always thought the BEGIN statements were executed before everything else,
# but I have discovered that in this case it has to be placed before the
# use statements if exec /usr/bin/gbootroot is done via $PATH .. I guess
# that makes sense because $PATH is established in the BEGIN.
BEGIN { BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC); my $fhs = grep(/\/usr\/share\/perl5/,@INC);
@ -235,6 +233,11 @@ BEGIN {
} }
use Gtk;
use strict;
use BootRoot::BootRoot;
init Gtk;
set_locale Gtk;
$main::editor = "emacs --font 6x13"; $main::editor = "emacs --font 6x13";
$main::makefs = "mke2fs -F -m0 -i8192"; # Root Disk $main::makefs = "mke2fs -F -m0 -i8192"; # Root Disk