summaryrefslogtreecommitdiffstats
path: root/installer/OpenSLX/OSSetup/MetaPackager/Base.pm
diff options
context:
space:
mode:
Diffstat (limited to 'installer/OpenSLX/OSSetup/MetaPackager/Base.pm')
-rw-r--r--installer/OpenSLX/OSSetup/MetaPackager/Base.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/installer/OpenSLX/OSSetup/MetaPackager/Base.pm b/installer/OpenSLX/OSSetup/MetaPackager/Base.pm
index 313460f6..218dd131 100644
--- a/installer/OpenSLX/OSSetup/MetaPackager/Base.pm
+++ b/installer/OpenSLX/OSSetup/MetaPackager/Base.pm
@@ -17,7 +17,9 @@ use vars qw($VERSION);
$VERSION = 1.01; # API-version . implementation-version
use strict;
+
use Carp;
+use OpenSLX::Basics;
################################################################################
### interface methods
@@ -54,6 +56,9 @@ sub installSelection
sub startSession
{
my $self = shift;
+
+ addCleanupFunction('slxos-setup::meta-packager',
+ sub { $self->finishSession(); } );
system('mount -t proc proc /proc 2>/dev/null');
@@ -64,11 +69,13 @@ sub startSession
sub finishSession
{
my $self = shift;
-
+
$self->{engine}->{distro}->finishSession();
# allow vendor specific extensions
system('umount /proc 2>/dev/null');
+
+ removeCleanupFunction('slxos-setup::meta-packager');
}
1;