diff options
| author | Oliver Tappe | 2007-07-01 22:28:50 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-07-01 22:28:50 +0200 |
| commit | 6974fa8b0419bbd0711f79c8b78e07a9543810dd (patch) | |
| tree | 25141f0f4d20ca8fdb1c845edf5b9ce4b24a6e98 /installer/OpenSLX/OSExport/Engine.pm | |
| parent | Tried to add Ubuntu 7.04 to the list of cloneable systems. (diff) | |
| download | core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.tar.gz core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.tar.xz core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.zip | |
* 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
Diffstat (limited to 'installer/OpenSLX/OSExport/Engine.pm')
| -rw-r--r-- | installer/OpenSLX/OSExport/Engine.pm | 13 |
1 files changed, 7 insertions, 6 deletions
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 = ( |