# $Id: NoUnicodeExt.pm,v 1.3 2003/07/30 13:39:23 matt Exp $

package XML::SAX::PurePerl::Reader;

use strict;

sub set_raw_stream {

    # no-op

}

sub switch_encoding_stream {

    my ($fh, $encoding) = @_;

    throw XML::SAX::Exception::Parse (

        Message => "Only ASCII encoding allowed without perl 5.7.2 or higher. You tried: $encoding",

    ) if $encoding !~ /(ASCII|UTF\-?8)/i;

}

sub switch_encoding_string {

    my (undef, $encoding) = @_;

    throw XML::SAX::Exception::Parse (

        Message => "Only ASCII encoding allowed without perl 5.7.2 or higher. You tried: $encoding",

    ) if $encoding !~ /(ASCII|UTF\-?8)/i;

}

1;