diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/share/list.xml | 8 | ||||
| -rw-r--r-- | perl-install/install/steps.pm | 8 |
3 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index e4cc96cbe..5d3d8d106 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,4 +1,5 @@ - prefer real binaries over the lightweight perl wrappers +- convert filesystem for usrmove during upgrades Version 14.48 - 22 October 2012 diff --git a/perl-install/install/share/list.xml b/perl-install/install/share/list.xml index b83ce0877..59f7e8db0 100644 --- a/perl-install/install/share/list.xml +++ b/perl-install/install/share/list.xml @@ -335,6 +335,14 @@ gconv-modules </from> +<!-- For the usrmove --> +<from> + /usr/lib/dracut/modules.d/30convertfs/convertfs.sh +</from> +<from expand="binary"> + find bash ldconfig mv rm cp ln +</from> + <filter subst="/^__END__/ and $_ = '', close ARGV"> <from expand="main-perl"> AutoLoader.pm diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm index c3cac095e..f006e5f6d 100644 --- a/perl-install/install/steps.pm +++ b/perl-install/install/steps.pm @@ -337,6 +337,14 @@ sub beforeInstallPackages { foreach (@filesNewerToUseAfterUpgrade) { unlink "$::prefix/$_.rpmnew"; } + + log::l("converting filesystem for usrmove"); + if (!run_program::run('/usr/lib/dracut/modules.d/30convertfs/convertfs.sh', $::prefix)) { + mkdir_p("$::prefix/root/drakx") if ! -d "$::prefix/root/drakx"; + # logs are only copied to $::prefix/root/drakx at the end of each step, so do it manually now + eval { cp_af("/tmp/ddebug.log", "$::prefix/root/drakx") }; + die "Unable to convert filesystem prior to upgrade. Check ddebug.log for details"; + } } #- mainly for upgrading redhat packages, but it can help other |