view release on metacpan or  search on metacpan

DB.pm  view on Meta::CPAN

=head1 SELinux

Security-enhanced Linux (SELinux) is a mandatory access control system
many linux distrobutions are implementing.  This new security scheme
can assist you with protecting a server, but it doesn't come without
its own set of issues.  Debugging applications running on a box with
SELinux on it takes a couple of extra steps and unfortunately the
instructions that follow have only been tested on RedHat/Fedora.

1) You need to edit/create the file "local.te" and add the following:

if (httpd_tty_comm) {
    allow { httpd_t } admin_tty_type:chr_file { ioctl getattr }; }

2) Reload your security policy.

3) Run the command "setsebool httpd_tty_comm true".

You should be aware as you debug applications on a system with SELinux
your code may very well be correct, but the system policy is denying your

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;

use 5.005;
use strict;
use File::Copy 'cp';
use subs 'iedit';

my $perl5db;

for (@INC) {
    last if -e ($perl5db = "$_/perl5db.pl");
}

warn "creating Apache/perl5db.pl from $perl5db\n";

cp $perl5db => './perl5db.pl';
#poor man's patch
iedit './perl5db.pl', "s/^END /sub db_END /";
#iedit './perl5db.pl', "s/(.SIG{INT}) /#\$1 /";

WriteMakefile(
    'NAME'	=> 'Apache::DB',
    'VERSION_FROM' => 'DB.pm',
    'macro' => {
         CVSROOT => 'modperl.com:/local/cvs_repository',
    },
    meta_merge         => {
        resources => {
	    repository => 'https://sourceforge.net/p/lindnerei/code/ci/master/tree/'

Makefile.PL  view on Meta::CPAN

EOF
}

sub MY::post_initialize {
    my $self = shift;
    $self->{PM}{"perl5db.pl"} = '$(INST_ARCHLIB)/' . "Apache/perl5db.pl";

    '';
}

sub iedit {
    my $file = shift;
    system $^X, "-pi~", "-e", "@_", $file;
}