diff options
Diffstat (limited to 'os-plugins/slxos-plugin')
| -rwxr-xr-x | os-plugins/slxos-plugin | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/os-plugins/slxos-plugin b/os-plugins/slxos-plugin index 52c80796..6797b25e 100755 --- a/os-plugins/slxos-plugin +++ b/os-plugins/slxos-plugin @@ -34,23 +34,23 @@ use OpenSLX::Basics; use OpenSLX::OSPlugin::Engine; use OpenSLX::Utils; -my ($helpReq, $manReq, $verbose, $versionReq,); +my %option; GetOptions( - 'help|?' => \$helpReq, - 'man' => \$manReq, - 'verbose' => \$verbose, - 'version' => \$versionReq, + 'help|?' => \$option{helpReq}, + 'man' => \$option{manReq}, + 'verbose' => \$option{verbose}, + 'version' => \$option{versionReq}, ) or pod2usage(2); -pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $helpReq; -if ($manReq) { +pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $option{helpReq}; +if ($option{manReq}) { # avoid dubious problem with perldoc in combination with UTF-8 that # leads to strange dashes and single-quotes being used $ENV{LC_MESSAGES} = 'POSIX'; pod2usage(-verbose => 2); } -if ($versionReq) { +if ($option{versionReq}) { system('slxversion'); exit 1; } @@ -67,7 +67,7 @@ if ($action =~ m[^list]i) { print join( '', map { - if ($verbose) { + if ($option{verbose}) { my $description = $pluginInfo->{$_}->{description}; $description .= "\t " |