* 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

1 files changed, 6 insertions, 1 deletions

diff --git a/installer/slxos-export b/installer/slxos-export
index 30045ff7..ad8d98a3 100755
--- a/installer/slxos-export
+++ b/installer/slxos-export
@@ -48,7 +48,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;