--- webroot/gate/2007/html/WebHACC/Language/WebIDL.pm	2008/08/14 15:50:42	1.5
+++ webroot/gate/2007/html/WebHACC/Language/WebIDL.pm	2008/08/15 05:53:23	1.6
@@ -13,7 +13,6 @@
 
   require Whatpm::WebIDL;
 
-  $self->result->layer_uncertain ('encode');
   $self->result->layer_uncertain ('charset');
 
   my $out = $self->output;
@@ -24,6 +23,8 @@
   my $input = $self->input;
   my $result = $self->result;
 
+  $self->result->layer_uncertain ('encode') unless $input->{is_char_string};
+
   require Encode;
   my $s = $input->{is_char_string} ? $input->{s} : Encode::decode ($input->{charset} || 'utf-8', $input->{s}); ## TODO: charset
   my $parser = Whatpm::WebIDL::Parser->new;