The test needs to be on defined $ENV{PERL_UNICODE} because during

testing being set to an empty string has meaning.

p4raw-id: //depot/perl@32674

diff --git a/lib/Test/Harness/t/unicode.t b/lib/Test/Harness/t/unicode.t
index b5b767e..3a600b6 100644 (file)
--- a/lib/Test/Harness/t/unicode.t
+++ b/lib/Test/Harness/t/unicode.t
@@ -13,7 +13,7 @@ BEGIN {
       unless $] > 5.008;
 
     plan skip_all => "PERL_UNICODE set"
-      if $ENV{PERL_UNICODE};
+      if defined $ENV{PERL_UNICODE};
 
     eval "use File::Temp";
     plan skip_all => "File::Temp unavailable"