fix uninitialised warning

--HG-- extra : convert_revision : svn%3Aec020cd8-820c-41dc-a724-4838206f7038/trunk%40971
dod38fr · Jun 1, 2009 · b1a3b8d · b1a3b8d
1 parent d494e52
commit b1a3b8d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/t/augeas_backend.t b/t/augeas_backend.t
@@ -6,7 +6,7 @@
 # test augeas backend 
 
 # workaround Augeas locale bug
-if ($ENV{LC_ALL} ne 'C' or $ENV{LANG} ne 'C') {
+if (not defined $ENV{LC_ALL} or $ENV{LC_ALL} ne 'C' or $ENV{LANG} ne 'C') {
   $ENV{LC_ALL} = $ENV{LANG} = 'C';
   exec("perl $0 @ARGV");
 }

diff --git a/t/augeas_from_scratch.t b/t/augeas_from_scratch.t
@@ -20,7 +20,7 @@ use strict;
 use vars qw/$model/;
 
 # workaround Augeas locale bug
-if ($ENV{LC_ALL} ne 'C' or $ENV{LANG} ne 'C') {
+if (not defined $ENV{LC_ALL} or $ENV{LC_ALL} ne 'C' or $ENV{LANG} ne 'C') {
   $ENV{LC_ALL} = $ENV{LANG} = 'C';
   exec("perl $0 @ARGV");
 }