From e0b92922e7d92a6f1d0f6a91a5e6c3b3d174ae1c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 10 Apr 2012 17:44:22 -0700
Subject: [PATCH] Debbugs::SOAP uses encode_utf8_structure from Debbugs::Common

---
 Debbugs/SOAP.pm | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index 66de901..5cb08bb 100644
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -24,6 +24,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
+use Debbugs::SOAP::Server;
 use base qw(Exporter SOAP::Server::Parameters);
 
 BEGIN{
@@ -38,14 +39,12 @@ BEGIN{
 
 }
 
-
 use IO::File;
 use Debbugs::Status qw(get_bug_status);
-use Debbugs::Common qw(make_list getbuglocation getbugcomponent);
+use Debbugs::Common qw(make_list getbuglocation getbugcomponent :utf8);
 use Debbugs::Packages;
-use Data::Walk;
-use Encode qw(encode_utf8);
-use Storable qw(nstore retrieve);
+
+use Storable qw(nstore retrieve dclone);
 use Scalar::Util qw(looks_like_number);
 
 
@@ -389,14 +388,6 @@ sub __collapse_params{
      return %params;
 }
 
-sub encode_utf8_structure {
-    return walk \&__encode_utf8, @_;
-}
-
-sub __encode_utf8 {
-    $_ = encode_utf8($_) unless ref $_ or not is_utf8($_);
-}
-
 
 1;
 
-- 
2.39.2