diff options
author | Oliver Tappe | 2007-07-18 20:35:03 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-07-18 20:35:03 +0200 |
commit | 4c229f003631c46946cb721a9050c7b6e8a86da9 (patch) | |
tree | 75ed973639247fbe4bbf4b92ca7d1ebec4fb2087 /os-plugins/slxos-plugin | |
parent | * updated perldoc to match current state (diff) | |
download | core-4c229f003631c46946cb721a9050c7b6e8a86da9.tar.gz core-4c229f003631c46946cb721a9050c7b6e8a86da9.tar.xz core-4c229f003631c46946cb721a9050c7b6e8a86da9.zip |
* some cleanup - we now make use of here-docs where feasible
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1252 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'os-plugins/slxos-plugin')
-rw-r--r-- | os-plugins/slxos-plugin | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/os-plugins/slxos-plugin b/os-plugins/slxos-plugin index e72b9b72..ad203383 100644 --- a/os-plugins/slxos-plugin +++ b/os-plugins/slxos-plugin @@ -32,6 +32,7 @@ use Pod::Usage; use OpenSLX::Basics; use OpenSLX::OSPlugin::Engine; +use OpenSLX::Utils; my ($helpReq, $manReq, $verbose, $versionReq,); @@ -120,13 +121,13 @@ if ($action =~ m[^list-av]i) { } $engine->removePlugin(); } else { - print STDERR _tr( - "You need to specify exactly one action: - install - list-available - remove -Try '%s --help' for more info.\n", $0 - ); + vlog(0, _tr(unshiftHereDoc(<<' END-OF-HERE'), $0)); + You need to specify exactly one action: + install + list-available + remove + Try '%s --help' for more info. + END-OF-HERE } =head1 NAME |