This file is indexed.

/usr/share/perl5/GD/Graph/linespoints.pm is in libgd-graph-perl 1.48-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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#==========================================================================
#              Copyright (c) 1995-1998 Martien Verbruggen
#--------------------------------------------------------------------------
#
#   Name:
#       GD::Graph::linespoints.pm
#
# $Id: linespoints.pm,v 1.8 2005/12/14 04:13:08 ben Exp $
#
#==========================================================================

package GD::Graph::linespoints;
 
($GD::Graph::linespoints::VERSION) = '$Revision: 1.8 $' =~ /\s([\d.]+)/;

use strict;
 
use GD::Graph::axestype;
use GD::Graph::lines;
use GD::Graph::points;
 
# Even though multiple inheritance is not really a good idea,
# since lines and points have the same parent class, I will do it here,
# because I need the functionality of the markers and the line types

@GD::Graph::linespoints::ISA = qw(GD::Graph::lines GD::Graph::points);

# PRIVATE

sub draw_data_set
{
    my $self = shift;

    $self->GD::Graph::points::draw_data_set(@_) or return;
    $self->GD::Graph::lines::draw_data_set(@_);
}

sub draw_legend_marker
{
    my $self = shift;

    $self->GD::Graph::points::draw_legend_marker(@_);
    $self->GD::Graph::lines::draw_legend_marker(@_);
}

"Just another true value";