diff options
author | Oliver Tappe | 2007-04-01 14:42:12 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-04-01 14:42:12 +0200 |
commit | 44369cf1c57a006921c89a2cede8d0ba87b1d659 (patch) | |
tree | 6816fd8a9a165fa1b0a305b8ee7f5786ce3e1a07 /config-db/slxconfig | |
parent | Remove superfluous and empty test file. (diff) | |
download | core-44369cf1c57a006921c89a2cede8d0ba87b1d659.tar.gz core-44369cf1c57a006921c89a2cede8d0ba87b1d659.tar.xz core-44369cf1c57a006921c89a2cede8d0ba87b1d659.zip |
* circumvent dubious problem with perldoc in combination with UTF-8 that
leads to strange dashes and single-quotes being used, in result making it
impossible to copy'n'paste examples
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@842 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/slxconfig')
-rwxr-xr-x | config-db/slxconfig | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/config-db/slxconfig b/config-db/slxconfig index 490dc7d7..46634065 100755 --- a/config-db/slxconfig +++ b/config-db/slxconfig @@ -49,7 +49,12 @@ GetOptions( 'version' => \$versionReq, ) or pod2usage(2); pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $helpReq; -pod2usage(-verbose => 2) if $manReq; +if ($manReq) { + $ENV{LANG} = 'en_EN'; + # avoid dubious problem with perldoc in combination with UTF-8 that + # leads to strange dashes and single-quotes being used + pod2usage(-verbose => 2) +} if ($versionReq) { system('slxversion'); exit 1; |