Wrong handler called for characters at the end of the document [rt.cpan.org #46685]

[toddr]

Migrated from rt.cpan.org#46685 (status was 'new')

Requestors:

• [email protected]

Attachments:

• char_handler_bug

From [email protected] on 2009-06-05 08:38:32
:

Valid characters (spaces/new lines) after the last closing tag of the
document trigger the Default handler instead of the Char handler.

The attached file shows that behaviour.
__
mirod

[toddr]

#!/usr/bin/perl

use strict;
use warnings;
 
use XML::Parser;

my $p=XML::Parser->new( Handlers => { Char    => sub { printf "char    : [%s]\n", show_lf( $_[1]);}, 
                                      Default => sub { printf "default : [%s]\n", show_lf( $_[1]);}, 
                                    }
                       ); 

$p->parse( "<doc>foo</doc>\n \n");

sub show_lf
  { my( $string)= @_;
    $string=~ s{\n}{\\n}g;
    return $string;
  }