Fixing #450:

* the class was missing a new() method - yeez!


git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2936 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 11 insertions, 0 deletions

diff --git a/boot-env/OpenSLX/BootEnvironment/Preboot/Base.pm b/boot-env/OpenSLX/BootEnvironment/Preboot/Base.pm
index 359561e3..89f0e07e 100644
--- a/boot-env/OpenSLX/BootEnvironment/Preboot/Base.pm
+++ b/boot-env/OpenSLX/BootEnvironment/Preboot/Base.pm
@@ -16,12 +16,23 @@ package OpenSLX::BootEnvironment::Preboot::Base;
 use strict;
 use warnings;
 
+use File::Basename;
+
 use Clone qw(clone);
 
 use OpenSLX::Basics;
 use OpenSLX::MakeInitRamFS::Engine::Preboot;
 use OpenSLX::Utils;
 
+sub new
+{
+    my $class  = shift;
+
+    my $self = {};
+
+    return bless $self, $class;
+}
+
 sub initialize
 {
     my $self   = shift;