/usr/share/perl5/CGI/Application/Plugin/DBIProfile/Data.pm is in libcgi-application-plugin-dbiprofile-perl 0.07-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 | package CGI::Application::Plugin::DBIProfile::Data;
use strict;
use base 'DBI::ProfileData';
use vars qw($VERSION);
$VERSION = "1.0";
use Symbol;
# override _read_files
# this is only so that we can add support for filehandles, rather than just files.
sub _read_files {
my $self = shift;
my $files = $self->{Files};
my $read_header = 0;
foreach my $filename (@$files) {
my $fh;
if (!ref($filename) && ref(\$filename) ne 'GLOB') {
# Assume $filename is a filename
$fh = gensym;
open($fh, $filename)
or croak("Unable to read profile file '$filename': $!");
} else {
$fh = $filename;
$filename = ref($fh).' object';
}
$self->_read_header($fh, $filename, $read_header ? 0 : 1);
$read_header = 1;
$self->_read_body($fh, $filename);
close($fh);
}
# discard node_lookup now that all files are read
delete $self->{_node_lookup};
}
|