--- texinfo/tp/Texinfo/Convert/IXIN.pm

+++ texinfo/tp/Texinfo/Convert/IXIN.pm

@@ -848,8 +848,8 @@ sub output_ixin($$)

             $blob_nr++;

             if ($extension eq 'txt') {

               binmode($filehandle, ":encoding("

-                         .$self->{'info'}->{'input_perl_encoding'}

-                if (defined($self->{'info'}->{'input_perl_encoding'});

+                         .$self->{'info'}->{'input_perl_encoding'}.")")

+                if (defined($self->{'info'}->{'input_perl_encoding'}));

             }

             my $file_content;

             if (-z $file) {