{
    package XML::SAX::PurePerl;

    sub quote {
        my ($self, $reader) = @_;

        my $data = $reader->data;
        
		# Original
        # $data =~ /^(['"])/ or $self->parser_error("Invalid quote token", $reader);

		# Modified
        $data =~ /^(['"])/ or
        do
        {
            $data =~ /^(.)/;
            my $quote_char = $1;
            warn "Invalid quote token found: -->$quote_char<--\n" .
                 "Source line follows:\n" . $data;
            $self->parser_error("Invalid quote token", $reader);
        };

        $reader->move_along(1);
        return $1;
    }
}