equal
deleted
inserted
replaced
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 |
|