From d97ed5d8192bb2d0b0dd63a6d8ff482e01e3f3d6 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Mon, 4 Feb 2002 18:22:18 +0000
Subject: [PATCH] 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.
---
 gbootroot | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/gbootroot b/gbootroot
index fb02ae8..1bc8760 100755
--- a/gbootroot
+++ b/gbootroot
@@ -207,13 +207,11 @@
 
 # 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.
+# 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 {
 
     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::makefs = "mke2fs -F -m0 -i8192"; # Root Disk