From d5113273cf2cefd1db9942e4d743f455aa8f669a Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Tue, 10 Jul 2007 20:57:27 +0000
Subject: * more work towards perlcritic compliance, fixed the low-hanging
 fruit   for level 4

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 installer/OpenSLX/OSExport/BlockDevice/AoE.pm | 2 ++
 installer/OpenSLX/OSExport/BlockDevice/NBD.pm | 2 ++
 2 files changed, 4 insertions(+)

(limited to 'installer/OpenSLX/OSExport/BlockDevice')

diff --git a/installer/OpenSLX/OSExport/BlockDevice/AoE.pm b/installer/OpenSLX/OSExport/BlockDevice/AoE.pm
index 2113ef5c..b0439a6d 100644
--- a/installer/OpenSLX/OSExport/BlockDevice/AoE.pm
+++ b/installer/OpenSLX/OSExport/BlockDevice/AoE.pm
@@ -49,6 +49,7 @@ sub initialize
 
 	$self->{'engine'} = $engine;
 	$self->{'fs'}     = $fs;
+	return;
 }
 
 sub getExportPort
@@ -90,6 +91,7 @@ sub showExportConfigInfo
 		"... (don't know how this is done yet)"
 	);
 	print(('#' x 80) . "\n");
+	return;
 }
 
 1;
diff --git a/installer/OpenSLX/OSExport/BlockDevice/NBD.pm b/installer/OpenSLX/OSExport/BlockDevice/NBD.pm
index 89f10b66..1199a4dc 100644
--- a/installer/OpenSLX/OSExport/BlockDevice/NBD.pm
+++ b/installer/OpenSLX/OSExport/BlockDevice/NBD.pm
@@ -43,6 +43,7 @@ sub initialize
 
 	$self->{'engine'} = $engine;
 	$self->{'fs'}     = $fs;
+	return;
 }
 
 sub getExportPort
@@ -84,6 +85,7 @@ sub showExportConfigInfo
 		"nbd-server $export->{port} $self->{fs}->{'export-path'} -r"
 	);
 	print(('#' x 80) . "\n");
+	return;
 }
 
 1;
-- 
cgit v1.2.3-55-g7522