/usr/share/perl5/SGML/DTDParse/Util.pm is in libsgml-dtdparse-perl 2.00-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | #
# $Id: Util.pm,v 2.2 2005/07/16 03:21:35 ehood Exp $
package SGML::DTDParse::Util;
use strict;
use vars qw($VERSION $CVS @ISA @EXPORT_OK %EXPORT_TAGS);
use Exporter;
$VERSION = do { my @r=(q$Revision: 2.2 $=~/\d+/g); sprintf "%d."."%03d"x$#r,@r };
$CVS = '$Id: Util.pm,v 2.2 2005/07/16 03:21:35 ehood Exp $ ';
@ISA = qw(Exporter);
@EXPORT_OK = qw(
entify
);
%EXPORT_TAGS = (
ALL => qw(
entify
),
);
#############################################################################
sub entify {
my $str = shift;
return undef unless defined($str);
$str =~ s/([&<>"])/sprintf("&#x%X;",ord($1))/ge;
$str;
}
#############################################################################
1;
__END__
=head1 NAME
SGML::DTDParse::Util - DTDParse utility routines.
=head1 SYNOPSIS
use SGML::DTDParse::Util;
use SGML::DTDParse::Util qw(:ALL);
=head1 DESCRIPTION
B<SGML::DTDParse::Util> provides utility routines for DTDParse
modules and scripts.
=head1 ROUTINES
By default, no routines are exported into the user's namespace.
If importing is desired, individual routines can be specified in the
C<use> statement or the special tag C<:ALL> can be specified to import
all routines.
=over 4
=item entify
$xml_str = entify($str);
Replace special characters with entity references. The characters
converted are C<E<lt>>, C<E<gt>>, C<&>, and C<"> (double-quote).
=back
=head1 SEE ALSO
See L<SGML::DTDParse|SGML::DTDParse> for an overview of the DTDParse package.
=head1 AVAILABILITY
E<lt>I<http://dtdparse.sourceforge.net/>E<gt>
=head1 AUTHORS
Earl Hood, E<lt>earl@earlhood.comE<gt>.
=head1 COPYRIGHT AND LICENSE
See L<SGML::DTDParse|SGML::DTDParse> for copyright and license information.
|