543f21c3be
relevant to the current BLS integration and cause issues in older KIWI versions, which actively force it to be enabled by default (bsc#1233196) * 0002-Add-BLS-support-to-grub-mkconfig.patch * 0003-Add-grub2-switch-to-blscfg.patch * 0007-grub-switch-to-blscfg-adapt-to-openSUSE.patch * 0008-blscfg-reading-bls-fragments-if-boot-present.patch * 0009-10_linux-Some-refinement-for-BLS.patch * 0001-10_linux-Do-not-enable-BLSCFG-on-s390-emu.patch OBS-URL: https://build.opensuse.org/package/show/Base:System/grub2?expand=0&rev=523
42 lines
1.3 KiB
Diff
42 lines
1.3 KiB
Diff
--- a/util/s390x/zipl2grub.pl.in
|
|
+++ b/util/s390x/zipl2grub.pl.in
|
|
@@ -7,6 +7,9 @@
|
|
my $default = '@sysconfdir@/default/grub';
|
|
my $fallback = '@sysconfdir@/zipl.conf';
|
|
my $sysconfbl = '@sysconfdir@/sysconfig/bootloader';
|
|
+my $defimage = "/boot/image";
|
|
+my $definitrd = "/boot/initrd";
|
|
+my $Image = "$defimage";
|
|
my $zipldir = "";
|
|
my $running = "";
|
|
my $refresh = 1; # needs to default to "on" until most bugs are shaken out!
|
|
@@ -166,7 +169,7 @@
|
|
my $msg = "";
|
|
|
|
$msg .= sprintf( "%s: %s\n", $C, $cat[$_[0]]) if ($_[0] > 0);
|
|
- $msg .= "Usage: $C [-v] [-d] [-f] [-T template] [-z ZIPLDIR]\n";
|
|
+ $msg .= "Usage: $C [-v] [-d] [-f] [-T template] [-z ZIPLDIR] [-i imagepath]\n";
|
|
Panic( $_[0], $msg . "\n");
|
|
}
|
|
|
|
@@ -183,6 +186,7 @@
|
|
(/^--?help/ || /^-h/) && (Usage(0));
|
|
(/^--zipldir$/ || /^-z$/) && ($zipldir = shift || Usage(2), next);
|
|
(/^--template$/ || /^-T$/) && ($in = shift || Usage(3), next);
|
|
+ (/^--image$/ || /^-i$/) && ($Image = shift || Usage(5), $force = 1, next);
|
|
(/^-/) && (Usage(1));
|
|
Usage(1);
|
|
}
|
|
@@ -378,11 +382,8 @@
|
|
}
|
|
|
|
# copy out kernel and initrd
|
|
-my $defimage = "/boot/image";
|
|
-my $definitrd = "/boot/initrd";
|
|
my $ziplimage = "$zipldir/image";
|
|
my $ziplinitrd = "$zipldir/initrd";
|
|
-my $Image = "$defimage";
|
|
|
|
if ( ! $running && ! $force ) {
|
|
chomp( $running = qx{uname -r});
|