Attachment 3840 Details for Bug 9611 – OEM patch #1

OEM patch #1

9611-a.patch (text/plain), 984 bytes, created by Thierry Vignaud on 2013-04-28 14:13:04 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2013-04-28 14:13:04 CEST

Size: 984 bytes

patch

obsolete

>#!/usr/bin/perl
>package install::install2;
>
>log::l("PATCH: installing basesystem-minimal instead of basesystem");
>
>undef *choosePackages;
>*choosePackages = sub {
>    my ($auto) = @_;
>    require install::pkgs;
>
>    #- always setPackages as it may have to copy hdlist and synthesis files.
>    installStepsCall($o, $auto, 'setPackages');
>    installStepsCall($o, $auto, 'choosePackages');
>    my @flags = map_each { if_($::b, $::a) } %{$o->{rpmsrate_flags_chosen}};
>    log::l("rpmsrate_flags_chosen's: ", join(' ', sort @flags));
>
>    #- check pre-condition that basesystem package must be selected.
>    my $base_pkg = install::pkgs::packageByName($o->{packages}, 'basesystem');
>    $base_pkg->flag_available or $base_pkg->flag_installed or die "basesystem package not selected";
>
>    #- check if there are packages that need installation.
>    $o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && install::pkgs::packagesToInstall($o->{packages}) > 0;
>};
>
>1;

#!/usr/bin/perl
package install::install2;

log::l("PATCH: installing basesystem-minimal instead of basesystem");

undef *choosePackages;
*choosePackages = sub {
    my ($auto) = @_;
    require install::pkgs;

    #- always setPackages as it may have to copy hdlist and synthesis files.
    installStepsCall($o, $auto, 'setPackages');
    installStepsCall($o, $auto, 'choosePackages');
    my @flags = map_each { if_($::b, $::a) } %{$o->{rpmsrate_flags_chosen}};
    log::l("rpmsrate_flags_chosen's: ", join(' ', sort @flags));

    #- check pre-condition that basesystem package must be selected.
    my $base_pkg = install::pkgs::packageByName($o->{packages}, 'basesystem');
    $base_pkg->flag_available or $base_pkg->flag_installed or die "basesystem package not selected";

    #- check if there are packages that need installation.
    $o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && install::pkgs::packagesToInstall($o->{packages}) > 0;
};

1;

Actions: View

Attachments on bug 9611: 3835 | 3838 | 3839 | 3840 | 3841