This file is indexed.

/usr/share/perl5/TM/Utils.pm is in libtm-perl 1.56-2.

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
package TM::Utils;

sub xmlify_hash {
    my $hash = shift;

    use XML::LibXML::SAX::Builder;
    my $builder = new XML::LibXML::SAX::Builder;
    use TM::Utils::TreeWalker;
    my $walker  = new TM::Utils::TreeWalker (Handler => $builder);
    $walker->walk ($hash);

    return $builder->result()->toString;
}

sub is_xml {
    my $s = shift;
    use XML::LibXML;
    my $parser = XML::LibXML->new();

    eval {
	my $doc = $parser->parse_string ($s);
    }; $@ ? 0 : 1;
}

our $VERSION  = '1.04';
our $REVISION = '$Id: Utils.pm,v 1.5 2006/11/13 08:02:33 rho Exp $';


1;