1
Perl / mod_perl и проверка модуля
« : 22 Октября 2008, 16:21:51 »
Большое спасибо, остановился на следующем варианте:
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
BEGIN
{
unshift @INC, $ENV{DOCUMENT_ROOT};
}
if (eval ("use lib::engine; 1"))
{
my$text = main();
print header;
print "|$text|";
}
else
{
print header;
print"Don\'t open module \'lib/engine.pm\' in \'$ENV{DOCUMENT_ROOT}\'";
}
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
BEGIN
{
unshift @INC, $ENV{DOCUMENT_ROOT};
}
if (eval ("use lib::engine; 1"))
{
my$text = main();
print header;
print "|$text|";
}
else
{
print header;
print"Don\'t open module \'lib/engine.pm\' in \'$ENV{DOCUMENT_ROOT}\'";
}