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/slxos-setup | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'installer/slxos-setup')

diff --git a/installer/slxos-setup b/installer/slxos-setup
index 381de5b3..1ba15527 100755
--- a/installer/slxos-setup
+++ b/installer/slxos-setup
@@ -11,6 +11,7 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 use strict;
+use warnings;
 
 my $abstract = q[
 slxos-setup
@@ -155,8 +156,9 @@ if ($action =~ m[^import]i) {
 } elsif ($action =~ m[^list-in]i) {
 	print _tr("List of installed vendor-OSes:\n");
 	print join('', map {
-					s[^.+/][];
-					"\t$_\n";
+					my $vendorOS = $_;
+					$vendorOS =~ s[^.+/][];
+					"\t$vendorOS\n";
 				   }
 				   sort <$openslxConfig{'private-path'}/stage1/*>);
 } else {
-- 
cgit v1.2.3-55-g7522