176
|
1 |
# $Id: NoUnicodeExt.pm,v 1.3 2003/07/30 13:39:23 matt Exp $
|
|
2 |
|
|
3 |
package XML::SAX::PurePerl::Reader;
|
|
4 |
use strict;
|
|
5 |
|
|
6 |
sub set_raw_stream {
|
|
7 |
# no-op
|
|
8 |
}
|
|
9 |
|
|
10 |
sub switch_encoding_stream {
|
|
11 |
my ($fh, $encoding) = @_;
|
|
12 |
throw XML::SAX::Exception::Parse (
|
|
13 |
Message => "Only ASCII encoding allowed without perl 5.7.2 or higher. You tried: $encoding",
|
|
14 |
) if $encoding !~ /(ASCII|UTF\-?8)/i;
|
|
15 |
}
|
|
16 |
|
|
17 |
sub switch_encoding_string {
|
|
18 |
my (undef, $encoding) = @_;
|
|
19 |
throw XML::SAX::Exception::Parse (
|
|
20 |
Message => "Only ASCII encoding allowed without perl 5.7.2 or higher. You tried: $encoding",
|
|
21 |
) if $encoding !~ /(ASCII|UTF\-?8)/i;
|
|
22 |
}
|
|
23 |
|
|
24 |
1;
|
|
25 |
|