Invalid quote token [Ln: 1, Col: 14]

##</code><code>##

{
    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;
    }
}

##</code><code>##

Can't locate object method "new" via package "XML::SAX::PurePerl" at C:/Perl_5.8.8/site/lib/XML/SAX/
ParserFactory.pm line 43.