mirror of
https://github.com/fspc/gbootroot.git
synced 2026-09-11 14:21:38 -04:00
Fixes another nasty.
This commit is contained in:
+14
-1
@@ -39,12 +39,25 @@ use File::Find;
|
||||
use File::Path;
|
||||
use BootRoot::Options;
|
||||
|
||||
option();
|
||||
|
||||
|
||||
$SIG{__WARN__} =
|
||||
sub { warn @_ unless $_[0] =~ /Subroutine [\w:]+ redefined/io
|
||||
|| $_[0] =~ /Use of uninitialized value in concatenation/};
|
||||
|
||||
|
||||
# Important option setting up
|
||||
option();
|
||||
$::commandline = \%option if %option;
|
||||
$::commandline = $ARGV[0] if $ARGV[0];
|
||||
|
||||
if ( $option{home} && !$option{template} ) {
|
||||
undef $::commandline;
|
||||
$option{gui_mode} = $option{home};
|
||||
undef $option{home};
|
||||
}
|
||||
|
||||
|
||||
# If you want gBootRoot to do it's stuff somewhere else, change the
|
||||
# value for $tmp1.
|
||||
my $tmp1 = "/tmp"; # tmp should be default - Cristian
|
||||
|
||||
Reference in New Issue
Block a user