Handle nested clean calls

This commit is contained in:
Jamie Cameron
2013-03-16 11:29:56 -07:00
parent c2ba9b1f49
commit 9352b0d8ce

View File

@@ -7190,7 +7190,9 @@ reset_environment.
=cut
sub clean_language
{
%UNCLEAN_ENV = %ENV;
if (!%UNCLEAN_ENV) {
%UNCLEAN_ENV = %ENV;
}
$ENV{'LANG'} = '';
$ENV{'LANGUAGE'} = '';
$ENV{'LC_ALL'} = '';