| # $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; |
| |