Browse Source

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

# 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.
master
freesource 23 years ago
parent
commit
d97ed5d819
  1. 15
      gbootroot

15
gbootroot

@ -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

Loading…
Cancel
Save