From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 26 Mar 2012 00:51:08 +0000 (-0700)
Subject: globify scalar uses utf8 scalars
X-Git-Tag: release/2.6.0~376^2~23
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=6c6f933a6416c413550c8608c317f275385d7a04

globify scalar uses utf8 scalars
---

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 8809898..d4eab8c 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -823,7 +823,8 @@ sub globify_scalar {
 	  if (defined ref($scalar)) {
 	       if (ref($scalar) eq 'SCALAR' and
 		   not UNIVERSAL::isa($scalar,'GLOB')) {
-		    return IO::Scalar->new($scalar);
+		    open $handle, '>:scalar:utf8', $scalar;
+		    return $handle;
 	       }
 	       else {
 		    return $scalar;
@@ -836,7 +837,7 @@ sub globify_scalar {
 	       carp "Given a non-scalar reference, non-glob to globify_scalar; returning /dev/null handle";
 	  }
      }
-     return IO::File->new('/dev/null','w');
+     return IO::File->new('/dev/null','>:utf8');
 }
 
 =head2 cleanup_eval_fail()