view release on metacpan or search on metacpan
t/100mysql.t view on Meta::CPAN
sub current_db {
my $dbh=shift;
my $db;
my $id=$dbh->{mysql_thread_id};
my $st=$dbh->prepare('show processlist');
$st->execute;
while( my $l=$st->fetchrow_arrayref ) {
$db=$l->[3] if( $l->[0]==$id );
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Defaults.pm view on Meta::CPAN
$self->{compiled_with} = $1;
} elsif (/^Architecture:\s+(.+)$/) {
$self->{architecture} = $1;
} elsif (/^Server MPM:\s+(.+)$/) {
$self->{MPM} = $1;
} elsif (/^\s+threaded:\s+(?<b>yes|no)/) {
$self->{MPM_threaded} = $+{b} eq 'yes';
} elsif (/^\s+forked:\s+(?<b>yes|no)/) {
$self->{MPM_forked} = $+{b} eq 'yes';
} elsif (/^\s+-D\s+(?<name>.+?)=(?<val>.+)$/) {
$self->{defines}{$+{name}} = $self->dequote($+{val});
} elsif (/^\s+-D\s+(?<name>\S+)(?:\s*(?<com>.+))?$/) {
lib/Apache/Defaults.pm view on Meta::CPAN
built
loaded_with
compiled_with
architecture
MPM
MPM_threaded
MPM_forked);
{
no strict 'refs';
foreach my $attribute (@ATTRIBUTES) {
*{ __PACKAGE__ . '::' . $attribute } = sub { shift->{$attribute} }
lib/Apache/Defaults.pm view on Meta::CPAN
=head2 MPM
MPM module loaded in the configuration.
=head2 MPM_threaded
True if the MPM is threaded.
=head2 MPM_forked
True if the MPM is forked.
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
}
}
$PERL_DIR = $ENV{PERL_DIR} if exists $ENV{PERL_DIR};
$USE_THREAD = ($Config{extensions} =~ /Thread/) || $Config{usethreads};
$USE_SFIO = (($Config{'usesfio'} || '') eq 'true');
my $Is_Win32 = ($^O eq "MSWin32");
sub WIN32 () { $Is_Win32 };
view all matches for this distribution
view release on metacpan or search on metacpan
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsCV|||
oopsHV|||
save_scalar|||
save_set_svflags||5.009000|
save_shared_pvref||5.007003|
save_sptr|||
save_svref|||
save_threadsv||5.005000|
save_vptr||5.006000|
savepvn|||
savepv|||
savesharedpv||5.007003|
savestack_grow_cnt||5.008001|
#endif
/*
* Boilerplate macros for initializing and accessing interpreter-local
* data from C. All statics in extensions should be reworked to use
* this, if you want to make the extension thread-safe. See ext/re/re.xs
* for an example of the use of these macros.
*
* Code that uses these macros is responsible for the following:
* 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
* 2. Declare a typedef named my_cxt_t that is a structure that contains
defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
#ifndef START_MY_CXT
/* This must appear in all extensions that define a my_cxt_t structure,
* right after the definition (i.e. at file scope). The non-threads
* case below uses it to declare the data as static. */
#define START_MY_CXT
#if (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 ))
/* Fetches the SV that keeps the per-interpreter data. */
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
}
}
$PERL_DIR = $ENV{PERL_DIR} if exists $ENV{PERL_DIR};
$USE_THREAD = ($Config{extensions} =~ /Thread/) || $Config{usethreads};
$USE_SFIO = (($Config{'usesfio'} || '') eq 'true');
my $Is_Win32 = ($^O eq "MSWin32");
sub WIN32 () { $Is_Win32 };
view all matches for this distribution
view release on metacpan or search on metacpan
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level/Config.pm).
# They may have been overridden via Makefile.PL or on the command line.
AR = ar
CC = /usr/bin/clang
CCCDLFLAGS =
CCDLFLAGS =
OBJ_EXT = .o
OSNAME = darwin
OSVERS = 12.0.0
RANLIB = ranlib
SITELIBEXP = /opt/local/lib/perl5/site_perl/5.12.4
SITEARCHEXP = /opt/local/lib/perl5/site_perl/5.12.4/darwin-thread-multi-2level
SO = dylib
VENDORARCHEXP = /opt/local/lib/perl5/vendor_perl/5.12.4/darwin-thread-multi-2level
VENDORLIBEXP = /opt/local/lib/perl5/vendor_perl/5.12.4
# --- MakeMaker constants section:
AR_STATIC_ARGS = cr
DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
INSTALLSITELIB = /opt/local/lib/perl5/site_perl/5.12.4
DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
INSTALLVENDORLIB = /opt/local/lib/perl5/vendor_perl/5.12.4
DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
INSTALLARCHLIB = /opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level
DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
INSTALLSITEARCH = /opt/local/lib/perl5/site_perl/5.12.4/darwin-thread-multi-2level
DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
INSTALLVENDORARCH = /opt/local/lib/perl5/vendor_perl/5.12.4/darwin-thread-multi-2level
DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
INSTALLBIN = /opt/local/bin
DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
INSTALLSITEBIN = /opt/local/libexec/perl5.12/sitebin
DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
INSTALLSITEMAN3DIR = /opt/local/share/perl5.12/siteman/man3
DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
INSTALLVENDORMAN3DIR = /opt/local/share/perl5.12/man/man3
DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
PERL_LIB = /opt/local/lib/perl5/5.12.4
PERL_ARCHLIB = /opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKEFILE_OLD = Makefile.old
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level/CORE
PERL = /usr/bin/perl
FULLPERL = /usr/bin/perl
ABSPERL = $(PERL)
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
ppd :
$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0.03_01">' > $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-thread-multi-2level-5.12" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
view all matches for this distribution
view release on metacpan or search on metacpan
t/Req2PSGI.pm view on Meta::CPAN
REQUEST_METHOD => $req->method,
'psgi.version' => [ 1, 1 ],
'psgi.url_scheme' => $uri->scheme eq 'https' ? 'https' : 'http',
'psgi.input' => $input,
'psgi.errors' => *STDERR,
'psgi.multithread' => $FALSE,
'psgi.multiprocess' => $FALSE,
'psgi.run_once' => $TRUE,
'psgi.streaming' => $TRUE,
'psgi.nonblocking' => $FALSE,
@_,
view all matches for this distribution
view release on metacpan or search on metacpan
sub CLONE {
my $olddbis = $DBI::_dbistate;
_clone_dbis() unless $DBI::PurePerl; # clone the DBIS structure
DBI->trace_msg(sprintf "CLONE DBI for new thread %s\n",
$DBI::PurePerl ? "" : sprintf("(dbis %x -> %x)",$olddbis, $DBI::_dbistate));
while ( my ($driver, $drh) = each %DBI::installed_drh) {
no strict 'refs';
next if defined &{"DBD::${driver}::CLONE"};
warn("$driver has no driver CLONE() function so is unsafe threaded\n");
}
%DBI::installed_drh = (); # clear loaded drivers so they have a chance to reinitialize
}
sub parse_dsn {
After calling take_imp_data(), all other methods except C<DESTROY>
will generate a warning and return undef.
Why would you want to do this? You don't, forget I even mentioned it.
Unless, that is, you're implementing something advanced like a
multi-threaded connection pool.
The returned $imp_data can be passed as a C<dbi_imp_data> attribute
to a later connect() call, even in a separate thread in the same
process, where the driver can use it to 'adopt' the existing
connection that the implementation data was taken from.
Some things to keep in mind...
C<qq{...}> operator if you want to interpolate variables into the string.
See L<perlop/"Quote and Quote-like Operators"> for more details.
=head2 Threads and Thread Safety
Perl 5.7 and later support a new threading model called iThreads.
(The old "5.005 style" threads are not supported by the DBI.)
In the iThreads model each thread has it's own copy of the perl
interpreter. When a new thread is created the original perl
interpreter is 'cloned' to create a new copy for the new thread.
If the DBI and drivers are loaded and handles created before the
thread is created then it will get a cloned copy of the DBI, the
drivers and the handles.
However, the internal pointer data within the handles will refer
to the DBI and drivers in the original interpreter. Using those
handles in the new interpreter thread is not safe, so the DBI detects
this and croaks on any method call using handles that don't belong
to the current thread (except for DESTROY).
Because of this (possibly temporary) restriction, newly created
threads must make their own connctions to the database. Handles
can't be shared across threads.
But BEWARE, some underlying database APIs (the code the DBD driver
uses to talk to the database, often supplied by the database vendor)
are not thread safe. If it's not thread safe, then allowing more
than one thread to enter the code at the same time may cause
subtle/serious problems. In some cases allowing more than
one thread to enter the code, even if I<not> at the same time,
can cause problems. You have been warned.
Using DBI with perl threads is not yet recommended for production
environments. For more information see
L<http://www.perlmonks.org/index.pl?node_id=288022>
Note: There is a bug in perl 5.8.2 when configured with threads
and debugging enabled (bug #24463) which causes a DBI test to fail.
=head2 Signal Handling and Canceling Operations
[The following only applies to systems with unix-like signal handling.
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /usr/lib/perl5/5.8.0/i586-linux-thread-multi/Config.pm)
# They may have been overridden via Makefile.PL or on the command line
AR = ar
CC = cc
CCCDLFLAGS = -fPIC
CCDLFLAGS = -rdynamic -Wl,-rpath,/usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE
DLEXT = so
DLSRC = dl_dlopen.xs
LD = cc
LDDLFLAGS = -shared
LDFLAGS =
Makefile.old view on Meta::CPAN
SITEPREFIX = /usr
VENDORPREFIX =
INSTALLPRIVLIB = $(PREFIX)/lib/perl5/5.8.0
INSTALLSITELIB = $(PREFIX)/lib/perl5/site_perl/5.8.0
INSTALLVENDORLIB =
INSTALLARCHLIB = $(PREFIX)/lib/perl5/5.8.0/i586-linux-thread-multi
INSTALLSITEARCH = $(PREFIX)/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi
INSTALLVENDORARCH =
INSTALLBIN = $(PREFIX)/bin
INSTALLSITEBIN = $(PREFIX)/bin
INSTALLVENDORBIN =
INSTALLSCRIPT = $(PREFIX)/bin
PERL_LIB = /usr/lib/perl5/5.8.0
PERL_ARCHLIB = /usr/lib/perl5/5.8.0/i586-linux-thread-multi
SITELIBEXP = /usr/lib/perl5/site_perl/5.8.0
SITEARCHEXP = /usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE
PERL = /usr/bin/perl
FULLPERL = /usr/bin/perl
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
Makefile.old view on Meta::CPAN
@$(NOOP)
config :: $(INST_AUTODIR)/.exists
@$(NOOP)
$(INST_AUTODIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_AUTODIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_AUTODIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR)
$(INST_LIBDIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_LIBDIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_LIBDIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR)
$(INST_ARCHAUTODIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_ARCHAUTODIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_ARCHAUTODIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR)
config :: $(INST_MAN3DIR)/.exists
@$(NOOP)
$(INST_MAN3DIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_MAN3DIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_MAN3DIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_MAN3DIR)
help:
perldoc ExtUtils::MakeMaker
Makefile.old view on Meta::CPAN
# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd:
@$(PERL) -e "print qq{<SOFTPKG NAME=\"$(DISTNAME)\" VERSION=\"0,01,0,0\">\n\t<TITLE>$(DISTNAME)</TITLE>\n\t<ABSTRACT></ABSTRACT>\n\t<AUTHOR></AUTHOR>\n}" > $(DISTNAME).ppd
@$(PERL) -e "print qq{\t<IMPLEMENTATION>\n}" >> $(DISTNAME).ppd
@$(PERL) -e "print qq{\t\t<OS NAME=\"$(OSNAME)\" />\n\t\t<ARCHITECTURE NAME=\"i586-linux-thread-multi\" />\n\t\t<CODEBASE HREF=\"\" />\n\t</IMPLEMENTATION>\n</SOFTPKG>\n}" >> $(DISTNAME).ppd
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@$(PERLRUNINST) "-MExtUtils::Install" \
view all matches for this distribution
view release on metacpan or search on metacpan
NNTPGateway.pm view on Meta::CPAN
$r->print( "\n<hr noshade>\n" );
my $i = $first_art;
for ( ; $i <= $last_art; $i++ ) {
# All articles are got now one by one from the newsserver,
# remember this is not a real newsreader we will not build
# threads trees here we've no time for that. But a powerful
# patch to do that will be welcome anyway ;-)
my $Article = &nntp_get_article( $i, 1 );
if ( $Article ) {
&print_html_article( $r, $Article, 1, &is_true( $Args->{long} ));
} else {
NNTPGateway.pm view on Meta::CPAN
Improving the C<check_user()> stuff for more security.
=item *
Integrating Jie Gao threaded view of articles list.
=item *
more stuff ...
view all matches for this distribution
view release on metacpan or search on metacpan
t/samples/sample.error.log view on Meta::CPAN
[Wed Aug 5 01:02:30 1998] [error] File does not exist: /usr/local/httpd/htdocs/mrtg/mrtg-r.gif
[Wed Aug 5 01:06:22 1998] [error] File does not exist: /usr/local/httpd/htdocs/eth.199x32.gif
[Wed Aug 5 01:07:40 1998] [error] File does not exist: /usr/local/httpd/htdocs/eth.199x32.gif
[Wed Aug 5 01:10:10 1998] [error] File does not exist: /usr/local/httpd/htdocs/eth.199x32.gif
[Wed Aug 5 01:10:45 1998] [error] File does not exist: /usr/local/httpd/htdocs/eth.199x32.gif
Can't locate IdexxInformatics/CGIUtil.pm in @INC (@INC contains: /usr/home/akira/work /usr/local/lib/perl5/5.00501/sun4-solaris-thread /usr/local/lib/perl5/5.00501 /usr/local/lib/perl5/site_perl/5.005/sun4-solaris-thread /usr/local/lib/perl5/site_per...
BEGIN failed--compilation aborted at /usr/local/httpd/htdocs/test/CGIUtilTest.cgi line 6.
[Thu Aug 6 00:31:26 1998] [error] Premature end of script headers: /usr/local/httpd/htdocs/test/CGIUtilTest.cgi
Can't use subscript on split at /usr/local/httpd/htdocs/test/ASCII.cgi line 3, near "0]"
Can't use subscript on split at /usr/local/httpd/htdocs/test/ASCII.cgi line 3, near "1]"
Execution of /usr/local/httpd/htdocs/test/ASCII.cgi aborted due to compilation errors.
view all matches for this distribution
view release on metacpan or search on metacpan
eg/clamav.pl view on Meta::CPAN
$optd='';
if (defined $ENV{'SCAN_TMP'}) {
$optd="--tempdir=".$ENV{'SCAN_TMP'};
}
open(FH, "ulimit -t60 ; /usr/bin/clamscan --mbox --threads=0 $optd --remove --stdout --disable-summary '$file' |");
@msg = <FH>;
close FH;
$rc = $?;
if ($rc != 0) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Reload.pm view on Meta::CPAN
Solution 2: remember to touch the script itself every time you change
the module that it requires.
=head1 Threaded MPM and Multiple Perl Interpreters
If you use C<Apache2::Reload> with a threaded MPM and multiple Perl
interpreters, the modules will be reloaded by each interpreter as they
are used, not every interpreters at once. Similar to mod_perl 1.0
where each child has its own Perl interpreter, the modules are
reloaded as each child is hit with a request.
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
}
}
$PERL_DIR = $ENV{PERL_DIR} if exists $ENV{PERL_DIR};
$USE_THREAD = ($Config{extensions} =~ /Thread/) || $Config{usethreads};
$USE_SFIO = (($Config{'usesfio'} || '') eq 'true');
my $Is_Win32 = ($^O eq "MSWin32");
sub WIN32 () { $Is_Win32 };
view all matches for this distribution
view release on metacpan or search on metacpan
Dummy/DummyScoreboard.pm view on Meta::CPAN
and C<Apache::Const::THREAD_LIMIT> are hardwired to 0, since the
methods that provide this information are only accessible via a
running Apache (i.e. via C<Apache::Scoreboad> running under mod_perl).
However, you should be using
C<L<$image->server_limit|Apache::Scoreboard/C_server_limit_>> and
C<L<$image->thread_limit|Apache::Scoreboard/C_thread_limit_>>.
=back
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return eq_array(
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/SizeLimit.pm view on Meta::CPAN
use Apache2::MPM ();
use Apache2::Const -compile => qw (DECLINED OK);
use ModPerl::Util ();
die "Apache2::SizeLimit at the moment works only with non-threaded MPMs"
if Apache2::MPM->is_threaded();
use constant IS_WIN32 => $Config{'osname'} eq 'MSWin32' ? 1 : 0;
# 2.x requires 5.6.x+ so 'our' is okay
our $VERSION = '0.98';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Sling/Authz.pm view on Meta::CPAN
GetOptions(
$authz_config, 'auth=s',
'help|?', 'log|L=s',
'man|M', 'pass|p=s',
'threads|t=s', 'url|U=s',
'user|u=s', 'verbose|v+',
'addChildNodes!', 'all!',
'delete|d', 'lifecycleManage!',
'lockManage!', 'modifyACL!',
'modifyProps!', 'nodeTypeManage!',
lib/Apache/Sling/Authz.pm view on Meta::CPAN
'auth' => \$sling->{'Auth'},
'help' => \$sling->{'Help'},
'log' => \$sling->{'Log'},
'man' => \$sling->{'Man'},
'pass' => \$sling->{'Pass'},
'threads' => \$sling->{'Threads'},
'url' => \$sling->{'URL'},
'user' => \$sling->{'User'},
'verbose' => \$sling->{'Verbose'},
'addChildNodes' => \$add_child_nodes,
'all' => \$all,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Solr/Tables.pm view on Meta::CPAN
facet.range.gap 3.6
facet.range.hardend 3.1
facet.range.include 3.1
facet.range.other 3.1
facet.range.start 3.1
facet.threads 4.5
hl.alternateField 1.3
hl.boundaryScanner 3.5
hl.bs.chars 3.5
hl.bs.country 3.5
hl.bs.language 3.5
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
=head1 List of Request Strings
The Apache Traffic Server Administration Manual will explain what these strings represent. (http://trafficserver.apache.org/docs/)
proxy.config.accept_threads
proxy.config.task_threads
proxy.config.admin.access_control_file
proxy.config.admin.admin_password
proxy.config.admin.admin_user
proxy.config.admin.advanced_ui
proxy.config.admin.autoconf.localhost_only
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
proxy.config.cache.permit.pinning
proxy.config.cache.ram_cache_cutoff
proxy.config.cache.ram_cache.size
proxy.config.cache.select_alternate
proxy.config.cache.storage_filename
proxy.config.cache.threads_per_disk
proxy.config.cache.url_hash_method
proxy.config.cache.vary_on_user_agent
proxy.config.cache.mutex_retry_delay
proxy.config.cli_binary
proxy.config.cluster.cluster_configuration
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
proxy.config.dns.splitDNS.enabled
proxy.config.dns.splitdns.filename
proxy.config.dns.url_expansions
proxy.config.dump_mem_info_frequency
proxy.config.env_prep
proxy.config.exec_thread.autoconfig
proxy.config.exec_thread.autoconfig.scale
proxy.config.exec_thread.limit
proxy.config.feature_set
proxy.config.header.parse.no_host_url_redirect
proxy.config.history_info_enabled
proxy.config.hostdb
proxy.config.hostdb.cluster
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
proxy.config.manager_binary
proxy.config.manager_name
proxy.config.net.accept_throttle
proxy.config.net.connections_throttle
proxy.config.net.enable_ink_disk_io
proxy.config.net.ink_aio_write_threads
proxy.config.net.ink_disk_io_watermark
proxy.config.net.listen_backlog
proxy.config.net.max_kqueue_len
proxy.config.net.nt.main_accept_pool_size
proxy.config.net_snapshot_filename
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
proxy.config.product_vendor
proxy.config.proxy.authenticate.basic.realm
proxy.config.proxy_binary
proxy.config.proxy_binary_opts
proxy.config.proxy_name
proxy.config.remap.num_remap_threads
proxy.config.remap.use_remap_processor
proxy.config.res_track_memory
proxy.config.reverse_proxy.enabled
proxy.config.reverse_proxy.oldasxbehavior
proxy.config.server_name
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
proxy.config.ssl.client.private_key.path
proxy.config.ssl.client.verify.server
proxy.config.ssl.cswift.lib.path
proxy.config.ssl.enabled
proxy.config.ssl.ncipher.lib.path
proxy.config.ssl.number.threads
proxy.config.ssl.server.cert_chain.filename
proxy.config.ssl.server.cert.filename
proxy.config.ssl.server.cert.path
proxy.config.ssl.server.multicert.filename
proxy.config.ssl.server_port
lib/Apache/TS/AdminClient.pm view on Meta::CPAN
proxy.config.stats.snap_file
proxy.config.stats.snap_frequency
proxy.config.syslog_facility
proxy.config.system.mmap_max
proxy.config.temp_dir
proxy.config.thread.default.stacksize
proxy.config.udp.free_cancelled_pkts_sec
proxy.config.udp.periodic_cleanup
proxy.config.udp.send_retries
proxy.config.update.concurrent_updates
proxy.config.update.enabled
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Test.pm view on Meta::CPAN
$VERSION = '1.43';
my @need = qw(need_lwp need_http11 need_cgi need_access need_auth
need_module need_apache need_min_apache_version need_min_apache_fix
need_apache_version need_perl need_min_perl_version
need_min_module_version need_threads need_fork need_apache_mpm
need_php need_php4 need_ssl need_imagemap need_cache_disk);
my @have = map { (my $need = $_) =~ s/need/have/; $need } @need;
@ISA = qw(Exporter);
lib/Apache/Test.pm view on Meta::CPAN
"$thing is not available with this version of Perl";
return 0;
}
sub need_threads {
my $status = 1;
# check APR support
my $build_config = Apache::TestConfig->modperl_build_config;
if ($build_config) {
my $apr_config = $build_config->get_apr_config();
unless ($apr_config->{HAS_THREADS}) {
$status = 0;
push @SkipReasons, "Apache/APR was built without threads support";
}
}
# check Perl's useithreads
my $key = 'useithreads';
unless (exists $Config{$key} and config_enabled($key)) {
$status = 0;
push @SkipReasons, "Perl was not built with 'ithreads' enabled";
}
return $status;
}
sub need_fork {
my $have_fork = $Config{d_fork} ||
$Config{d_pseudofork} ||
(($^O eq 'MSWin32' || $^O eq 'NetWare') &&
$Config{useithreads} &&
$Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/);
if (!$have_fork) {
push @SkipReasons, 'The fork function is unimplemented';
return 0;
lib/Apache/Test.pm view on Meta::CPAN
requires the prefork MPM.
=item need_perl
plan tests => 5, need_perl 'iolayers';
plan tests => 5, need_perl 'ithreads';
Requires a perl extension to be present, or perl compiled with certain
capabilities.
The first example tests whether C<PerlIO> is available, the second
whether:
$Config{useithread} eq 'define';
=item need_min_perl_version
Used to require a minimum version of Perl.
lib/Apache/Test.pm view on Meta::CPAN
=item need
plan tests => 5,
need 'LWP',
{ "perl >= 5.8.0 and w/ithreads is required" =>
($Config{useperlio} && $] >= 5.008) },
{ "not Win32" => sub { $^O eq 'MSWin32' },
"foo is disabled" => \&is_foo_enabled,
},
'cgid';
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /usr/lib/perl5/5.8.0/i586-linux-thread-multi/Config.pm)
# They may have been overridden via Makefile.PL or on the command line
AR = ar
CC = cc
CCCDLFLAGS = -fPIC
CCDLFLAGS = -rdynamic -Wl,-rpath,/usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE
DLEXT = so
DLSRC = dl_dlopen.xs
LD = cc
LDDLFLAGS = -shared
LDFLAGS =
Makefile.old view on Meta::CPAN
SITEPREFIX = /usr
VENDORPREFIX =
INSTALLPRIVLIB = $(PREFIX)/lib/perl5/5.8.0
INSTALLSITELIB = $(PREFIX)/lib/perl5/site_perl/5.8.0
INSTALLVENDORLIB =
INSTALLARCHLIB = $(PREFIX)/lib/perl5/5.8.0/i586-linux-thread-multi
INSTALLSITEARCH = $(PREFIX)/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi
INSTALLVENDORARCH =
INSTALLBIN = $(PREFIX)/bin
INSTALLSITEBIN = $(PREFIX)/bin
INSTALLVENDORBIN =
INSTALLSCRIPT = $(PREFIX)/bin
PERL_LIB = /usr/lib/perl5/5.8.0
PERL_ARCHLIB = /usr/lib/perl5/5.8.0/i586-linux-thread-multi
SITELIBEXP = /usr/lib/perl5/site_perl/5.8.0
SITEARCHEXP = /usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE
PERL = /usr/bin/perl
FULLPERL = /usr/bin/perl
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
Makefile.old view on Meta::CPAN
@$(NOOP)
config :: $(INST_AUTODIR)/.exists
@$(NOOP)
$(INST_AUTODIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_AUTODIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_AUTODIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR)
$(INST_LIBDIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_LIBDIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_LIBDIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR)
$(INST_ARCHAUTODIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_ARCHAUTODIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_ARCHAUTODIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR)
config :: $(INST_MAN3DIR)/.exists
@$(NOOP)
$(INST_MAN3DIR)/.exists :: /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h
@$(MKPATH) $(INST_MAN3DIR)
@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/perl.h $(INST_MAN3DIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_MAN3DIR)
help:
perldoc ExtUtils::MakeMaker
Makefile.old view on Meta::CPAN
# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd:
@$(PERL) -e "print qq{<SOFTPKG NAME=\"$(DISTNAME)\" VERSION=\"0,01,0,0\">\n\t<TITLE>$(DISTNAME)</TITLE>\n\t<ABSTRACT>Perl extension for serving topic maps.</ABSTRACT>\n\t<AUTHOR>Jan Algermissen <algermissen\@acm.org></AUTHOR>\n}" > $(DISTNAME)...
@$(PERL) -e "print qq{\t<IMPLEMENTATION>\n}" >> $(DISTNAME).ppd
@$(PERL) -e "print qq{\t\t<OS NAME=\"$(OSNAME)\" />\n\t\t<ARCHITECTURE NAME=\"i586-linux-thread-multi\" />\n\t\t<CODEBASE HREF=\"\" />\n\t</IMPLEMENTATION>\n</SOFTPKG>\n}" >> $(DISTNAME).ppd
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@$(PERLRUNINST) "-MExtUtils::Install" \
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/VMonitor.pm view on Meta::CPAN
require Time::HiRes;
}
# once 2.0 is released drop the Apache::MPM_IS_THREADED case
use constant APACHE_IS_THREADED => MP2 &&
require Apache2::MPM && Apache2::MPM->is_threaded();
# Apache::Scoreboard for 1.3 scoreboard has the vhost accessor only
# starting from version 0.12
use constant HAS_VHOSTS => (MP2 || $Apache::Scoreboard::VERSION > 0.11);
#use constant THREAD_LIMIT => MP2
# ? Apache::Const::THREAD_LIMIT
# : 0; # no threads in mp1
use constant SINGLE_PROCESS_MODE => MP2
? Apache2::ServerUtil::exists_config_define('ONE_PROCESS')
: Apache->define('X');
lib/Apache/VMonitor.pm view on Meta::CPAN
: $Apache::VMonitor::Config{$_};
}
my $pid = $params{pid} || 0;
# really just a worker index (in threaded mpm)
my $tid = $params{thread_num} || '';
# build the updated URL (append the pid k/v pair)
my $url = $r->uri . "?pid=$pid&" . join "&", map {"$_=$cfg{$_}"} keys %cfg;
# if refresh is non-null, set the refresh header
lib/Apache/VMonitor.pm view on Meta::CPAN
ftime = format_time(date.hour, date.min, pam);
USE format_load = format("%.2f %.2f %.2f");
floadavg = format_load(loadavg.0, loadavg.1, loadavg.2,);
USE format_run_procs = format(", %d processes/threads: %d running");
frun_procs = tasks
? format_run_procs(tasks.0, tasks.1)
: "";
USE format_line_time_load =
lib/Apache/VMonitor.pm view on Meta::CPAN
pid => $ppid,
pid_link => fixup_url($self->{url}, pid => $ppid),
%$pmem,
};
$data{ $ppid }{process} = $prec;
# this parent has no worker threads
$data{ $ppid }{workers} = [];
}
}
my $SERVER_LIMIT = MP2 ? $image->server_limit : $Apache::Constants::HARD_SERVER_LIMIT;
lib/Apache/VMonitor.pm view on Meta::CPAN
$data{ $pid }{process} = \%record;
if (APACHE_IS_THREADED) {
do {
my $record = $self->score2record($worker_score);
my $thread_num = $worker_score->thread_num;
$record->{pid} = $thread_num;
$record->{pid_link} = fixup_url($self->{url}, pid => $pid);
$record->{pid_link} .= "&thread_num=$thread_num";
push @{ $data{$pid}{workers} }, $record;
$worker_score =
$parent_score->next_live_worker_score($worker_score);
} while $worker_score
}
lib/Apache/VMonitor.pm view on Meta::CPAN
my $has_vhosts_entries = 0;
for my $pid (sort $sort_sub keys %data) {
my $rec = $data{$pid}{process};
# threads
my @workers = ();
my $tcount = 0;
for my $trec (@{ $data{$pid}{workers} || []}) {
$tcount++;
lib/Apache/VMonitor.pm view on Meta::CPAN
total => $total,
records => \@records,
cols_sorted => \@cols_sorted,
cols => \%cols,
has_vhosts_entries => $has_vhosts_entries,
threaded => (APACHE_IS_THREADED ? 1 : 0),
};
}
sub pid2mem {
my($self, $pid, $total) = @_;
lib/Apache/VMonitor.pm view on Meta::CPAN
wrec.frss, wrec.mode, wrec.felapsed, wrec.flastreq,
wrec.fserved, wrec.client, wrec.vhost, wrec.frequest, line_fill);
END;
IF threaded;
FOR rec = records;
item_class = loop.count % 2 ? "item_odd" : "item_even";
"<span class=\"$item_class\">";
IF rec.workers.size;
PROCESS present_parent_record prec = rec;
lib/Apache/VMonitor.pm view on Meta::CPAN
The first row reports the status of parent process (mnemonic 'par').
Columns:
<pre>
<span class="item_even">Column Purpose</span>
<b>PID</b> Id (or Thread index for threaded httpd)
<b>Size</b> Total Size
<b>Share</b> Shared Size
<b>VSize</b> Virtual Size
<b>RSS</b> Resident Size
<b>M</b> Apache mode (See below a full table of abbreviations)
view all matches for this distribution
view release on metacpan or search on metacpan
}
use Apache::Scoreboard ();
use Symbol ();
if (MP2 && require Apache::MPM && Apache::MPM->is_threaded()) {
die __PACKAGE__ . " is suitable to be used only under prefork MPM";
}
use subs qw(debug log_error);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Wombat/Connector.pm view on Meta::CPAN
on a socket but rather provides a C<process()> entry point with which
it receives and returns an B<Apache> instance. It provides HttpRequest
and HttpResponse implementations that delegate many fields and methods
to an underlying B<Apache::Request> instance.
ApacheConnector assumes an Apache 1 & mod_perl 1 single-threaded
multi-process environment. It's unknown whether it will work in any
other environment.
Requires mod_perl to be compiled with at least one of the following
options:
view all matches for this distribution
view release on metacpan or search on metacpan
eg/mycache.pm view on Meta::CPAN
package mycache;
use threads;
use threads::shared;
our %cache : shared = (dummy=>'ok');
1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/API.pm view on Meta::CPAN
=item C<-target>
name of server binary (default is C<apxs -q TARGET>)
=item C<-thread_module_name>
thread module name
=item C<-threadsperchild>
number of threads per child when using threaded MPMs (default is C<10>)
=item C<-top_dir>
top-level directory (default is C<$PWD>)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/ASP/SessionStateManager.pm view on Meta::CPAN
It is a blessed hash that is persisted to a database. Use it to share information across all requests for
one user.
B<NOTE:> - do not store database connections or filehandles within the C<$Session> object because they cannot be shared across
different processes or threads.
=head1 METHODS
=head2 save( )
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/AMF51DegreesFilter.pm view on Meta::CPAN
package Apache2::AMF51DegreesFilter;
use strict;
use warnings;
use threads;
use threads::shared;
use Apache2::AMFCommonLib ();
use Apache2::RequestRec ();
use Apache2::RequestUtil ();
use Apache2::SubRequest ();
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/AuthCAS.pm view on Meta::CPAN
# Where do we redirect if there is an error?
CASErrorUrl "http://localhost/cas/error/"
# Session cleanup threshold (1 in N requests)
# Session cleanup will occur for each Apache thread or process -
# i.e. for 10 processes, it may take as many as 100 requests before
# session cleanup is performed with a threshold of 10)
CASSessionCleanupThreshold 10
view all matches for this distribution