From 99d88927b181a3494a03718125e8e2c9f384f45c Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Fri, 5 Jun 2009 18:13:11 +0000
Subject: 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
---
 boot-env/OpenSLX/BootEnvironment/Preboot/Base.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'boot-env')

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;
-- 
cgit v1.2.3-55-g7522