SILENT KILLERPanel

Current Path: > > usr > local > share > perl5 > XML > > SAX > PurePerl > > Reader


Operation   : Linux premium131.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64
Software     : Apache
Server IP    : 162.0.232.56 | Your IP: 216.73.216.111
Domains      : 1034 Domain(s)
Permission   : [ 0755 ]

Files and Folders in: //usr/local/share/perl5/XML//SAX/PurePerl//Reader

NameTypeSizeLast ModifiedActions
NoUnicodeExt.pm File 587 bytes June 13 2019 23:18:28.
Stream.pm File 1801 bytes June 13 2019 23:18:28.
String.pm File 1691 bytes June 13 2019 23:18:28.
URI.pm File 1462 bytes June 13 2019 23:18:28.
UnicodeExt.pm File 326 bytes June 13 2019 23:18:28.

Reading File: //usr/local/share/perl5/XML//SAX/PurePerl//Reader/NoUnicodeExt.pm

# $Id$

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;


SILENT KILLER Tool