X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCommon.pm;h=1331ac003cb8108a4b3f46b8564b334162f37e84;hb=b33403cc853dc5f8376ace6d4411a59ed9c49692;hp=4755fd5d2412f7fbf8f916be1765e417bad3abf8;hpb=3cccbb53e0dfd0b7f970250da329615e15a54a99;p=debbugs.git

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 4755fd5..1331ac0 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -50,7 +50,6 @@ BEGIN{
 				qw(cleanup_eval_fail),
 				qw(hash_slice),
 			       ],
-		     utf8   => [qw(encode_utf8_structure encode_utf8_safely)],
 		     date   => [qw(secs_to_english)],
 		     quit   => [qw(quit)],
 		     lock   => [qw(filelock unfilelock lockpid)],
@@ -71,7 +70,6 @@ use IO::Scalar;
 use Debbugs::MIME qw(decode_rfc1522);
 use Mail::Address;
 use Cwd qw(cwd);
-use Encode qw(encode_utf8 is_utf8);
 use Storable qw(dclone);
 
 use Params::Validate qw(validate_with :types);
@@ -827,7 +825,7 @@ sub globify_scalar {
 	  if (defined ref($scalar)) {
 	       if (ref($scalar) eq 'SCALAR' and
 		   not UNIVERSAL::isa($scalar,'GLOB')) {
-		    open $handle, '>:scalar:utf8', $scalar;
+		    open $handle, '>:scalar:encoding(UTF-8)', $scalar;
 		    return $handle;
 	       }
 	       else {
@@ -841,7 +839,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','>:utf8');
+     return IO::File->new('/dev/null','>:encoding(UTF-8)');
 }
 
 =head2 cleanup_eval_fail()
@@ -900,69 +898,6 @@ sub hash_slice(\%@) {
 }
 
 
-=head1 UTF-8
-
-These functions are exported with the :utf8 tag
-
-=head2 encode_utf8_structure
-
-     %newdata = encode_utf8_structure(%newdata);
-
-Takes a complex data structure and encodes any strings with is_utf8
-set into their constituent octets.
-
-=cut
-
-our $depth = 0;
-sub encode_utf8_structure {
-    ++$depth;
-    my @ret;
-    for my $_ (@_) {
-	if (ref($_) eq 'HASH') {
-	    push @ret, {encode_utf8_structure(%{$depth == 1 ? dclone($_):$_})};
-	}
-	elsif (ref($_) eq 'ARRAY') {
-	    push @ret, [encode_utf8_structure(@{$depth == 1 ? dclone($_):$_})];
-	}
-	elsif (ref($_)) {
-	    # we don't know how to handle non hash or non arrays
-	    push @ret,$_;
-	}
-	else {
-	    push @ret,encode_utf8_safely($_);
-	}
-    }
-    --$depth;
-    return @ret;
-}
-
-=head2 encode_utf8_safely
-
-     $octets = encode_utf8_safely($string);
-
-Given a $string, returns the octet equivalent of $string if $string is
-in perl's internal encoding; otherwise returns $string.
-
-Silently returns REFs without encoding them. [If you want to deeply
-encode REFs, see encode_utf8_structure.]
-
-=cut
-
-
-sub encode_utf8_safely{
-    my @ret;
-    for my $r (@_) {
-        if (not ref($r) and is_utf8($r)) {
-	    $r = encode_utf8($r);
-	}
-	push @ret,$r;
-    }
-    return wantarray ? @ret : (length @_ > 1 ? @ret : $_[0]);
-}
-
-
-
-
 1;
 
 __END__