From 6974fa8b0419bbd0711f79c8b78e07a9543810dd Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 1 Jul 2007 20:28:50 +0000
Subject: * activated 'use warnings' to all modules and adjusted all occurences
 of   'use of uninitialized values', a couple of which might still show up *
 adjusted all code with respect to passing perlcritic level 4 and 5

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1207 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 installer/OpenSLX/OSExport/Engine.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'installer/OpenSLX/OSExport/Engine.pm')

diff --git a/installer/OpenSLX/OSExport/Engine.pm b/installer/OpenSLX/OSExport/Engine.pm
index 5d08c177..31a71b5a 100644
--- a/installer/OpenSLX/OSExport/Engine.pm
+++ b/installer/OpenSLX/OSExport/Engine.pm
@@ -13,7 +13,10 @@
 # -----------------------------------------------------------------------------
 package OpenSLX::OSExport::Engine;
 
-use vars qw(@ISA @EXPORT $VERSION);
+use strict;
+use warnings;
+
+our (@ISA, @EXPORT, $VERSION);
 $VERSION = 1.01;    # API-version . implementation-version
 
 use Exporter;
@@ -24,16 +27,14 @@ use Exporter;
   @supportedExportTypes %supportedDistros
 );
 
-use strict;
-use Carp;
 use File::Basename;
 
 use OpenSLX::Basics;
 use OpenSLX::Utils;
 
-use vars qw(
-  %supportedExportFileSystems %supportedExportBlockDevices
-  @supportedExportTypes %supportedDistros
+our (
+  %supportedExportFileSystems, %supportedExportBlockDevices,
+  @supportedExportTypes, %supportedDistros
 );
 
 %supportedExportFileSystems = (
-- 
cgit v1.2.3-55-g7522