/usr/share/perl5/Debbugs/DBase/Log/Message.pm is in libdebbugs-perl 2.6.0.
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 | # TODO: Implement 'stale' checks, so that there is no need to explicitly
# write out a record, before closing.
package Debbugs::DBase::Log::Message;
use strict;
BEGIN {
Debbugs::DBase::Log::Register("\7", "Message", "Debbugs::DBase::Log::Message");
}
sub new
{
my $self = {};
$self->{TYPE} = "Message";
$self->{MSG} = shift;
bless ($self);
return $self;
}
END { } # module clean-up code here (global destructor)
1;
|