Result:
found more than 468 distributions - search limited to the first 2001 files matching your query
( run in 0.941 )
Apache-Watchdog-RunAway
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);
Apache-Wombat
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:
Apache-forks
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;
Apache2-API
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>)
Apache2-ASP
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( )
Apache2-ApacheMobileFilter
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 ();
Apache2-AuthCAS
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
Apache2-AuthenNTLM
view release on metacpan or search on metacpan
AuthenNTLM.pm view on Meta::CPAN
This means that you will need to resolve the DOMAIN locally on the web server
machine. I put it into the /etc/hosts file.
For the complete run-down on this issue, check out:
http://www.gossamer-threads.com/archive/mod_perl_C1/modperl_F7/%5BFwd:_Re:_Apache::AuthenNTLM-2.04_Problems..%5D_P104237/
=head2 PerlSetVar defaultdomain
Set the default domain. This is used when the client does not provide
any information about the domain.
Apache2-AuthenSecurID
view release on metacpan or search on metacpan
- original version; created by db
0.02 Fri Jan 5 18:09:10 2001
- changes to use cookies
0.03 Mon Jun 18 21:32:55 2001
- major overhaul
- created single threaded ace auth server
- create Auth handler instead of using basic auth
- started using blowfish
- better documentation
0.04 Mon Jul 31 16:05:00 2002
- fixed typo in docs
Apache2-Banner
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
offer_nice_chunk|||
oopsAV|||
oopsHV|||
#endif
/* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
* automatically be defined as the correct argument.
*/
#if (PERL_BCDVERSION <= 0x5005005)
#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_BCDVERSION < 0x5004068)
/* 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)) {
Apache2-Camelcadedb
view release on metacpan or search on metacpan
t/010_sanity.t view on Meta::CPAN
use strict;
use warnings;
use threads;
use threads::shared;
use Test::More tests => 5;
use Apache::TestRequest;
use IO::Socket::INET;
use JSON::XS;
t/010_sanity.t view on Meta::CPAN
push @events, 'response_received';
1;
}
my $dbg_thread = threads->create(\&accept_debugger);
my $req_thread = threads->create(\&make_request);
ok($req_thread->join, "request thread completed succesfully");
ok($dbg_thread->join, "debugger thread completed successfully");
is_deeply(
\@events,
[qw(request_send debugger_open debugger_close response_received)],
"debugger is blocking request execution",
Apache2-Controller
view release on metacpan or search on metacpan
lib/Apache2/Controller.pm view on Meta::CPAN
Apache2::Controller's package space structure lets you take advantage
of closures that access variables in your controller subclass
package space, which are cached by modperl in child processes
across independent web requests. Be careful with that and use
Devel::Size to keep memory usage down. I have no idea how this
would work under threaded mpm.
=head1 CONTENT TYPE
Your controller should set content type with C<< $self->content_type() >>
to something specific if you need that. Otherwise it will let
Apache2-DebugFilter
view release on metacpan or search on metacpan
run_version_tests view on Meta::CPAN
make clean && perl-5.6.1 Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl /home/$USER/httpd/prefork/modules/mod_perl-5.6.1.so -port select MOD_PERL=2 && make && make test
make clean && perl-5.8.0 Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl mod_perl-5.8.0.so -port select MOD_PERL=2 && make && make test
make clean && perl-5.8.0-ithread Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl mod_perl-5.8.0-ithread.so -port select MOD_PERL=2 && make && make test
make clean && perl-5.8.1 Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl mod_perl-5.8.1.so -port select MOD_PERL=2 && make && make test
make clean && perl-5.8.1-ithread Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl mod_perl-5.8.1-ithread.so -port select MOD_PERL=2 && make && make test
make clean && perl-blead Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl mod_perl-blead.so -port select MOD_PERL=2 && make && make test
make clean && perl-blead-ithread Makefile.PL -httpd /home/$USER/httpd/prefork/bin/httpd -libmodperl mod_perl-blead-ithread.so -port select MOD_PERL=2 && make && make test
Apache2-Dummy-RequestRec
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.26.1/x86_64-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 = -Wl,-E -Wl,-rpath,/usr/lib/perl5/5.26.1/x86_64-linux-thread-multi/CORE
DLEXT = so
DLSRC = dl_dlopen.xs
EXE_EXT =
FULL_AR = /usr/bin/ar
LD = cc
Makefile.old view on Meta::CPAN
OBJ_EXT = .o
OSNAME = linux
OSVERS = 4.12.14-lp151.24-default
RANLIB = :
SITELIBEXP = /usr/lib/perl5/site_perl/5.26.1
SITEARCHEXP = /usr/lib/perl5/site_perl/5.26.1/x86_64-linux-thread-multi
SO = so
VENDORARCHEXP = /usr/lib/perl5/vendor_perl/5.26.1/x86_64-linux-thread-multi
VENDORLIBEXP = /usr/lib/perl5/vendor_perl/5.26.1
# --- MakeMaker constants section:
AR_STATIC_ARGS = cr
Makefile.old view on Meta::CPAN
DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
INSTALLSITELIB = /usr/lib/perl5/site_perl/5.26.1
DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
INSTALLVENDORLIB = /usr/lib/perl5/vendor_perl/5.26.1
DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
INSTALLARCHLIB = /usr/lib/perl5/5.26.1/x86_64-linux-thread-multi
DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
INSTALLSITEARCH = /usr/lib/perl5/site_perl/5.26.1/x86_64-linux-thread-multi
DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
INSTALLVENDORARCH = /usr/lib/perl5/vendor_perl/5.26.1/x86_64-linux-thread-multi
DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
INSTALLBIN = /usr/bin
DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
INSTALLSITEBIN = /usr/bin
DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
Makefile.old view on Meta::CPAN
INSTALLSITEMAN3DIR = /usr/share/man/man3
DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
INSTALLVENDORMAN3DIR = /usr/share/man/man3
DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
PERL_LIB = /usr/lib/perl5/5.26.1
PERL_ARCHLIB = /usr/lib/perl5/5.26.1/x86_64-linux-thread-multi
PERL_ARCHLIBDEP = /usr/lib/perl5/5.26.1/x86_64-linux-thread-multi
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKEFILE_OLD = Makefile.old
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /usr/lib/perl5/5.26.1/x86_64-linux-thread-multi/CORE
PERL_INCDEP = /usr/lib/perl5/5.26.1/x86_64-linux-thread-multi/CORE
PERL = "/usr/bin/perl"
FULLPERL = "/usr/bin/perl"
ABSPERL = $(PERL)
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
Makefile.old view on Meta::CPAN
# --- MakeMaker staticmake section:
# --- MakeMaker makeaperl section ---
MAP_TARGET = perl
FULLPERL = "/usr/bin/perl"
MAP_PERLINC = "-Iblib/arch" "-Iblib/lib" "-I/usr/lib/perl5/5.26.1/x86_64-linux-thread-multi" "-I/usr/lib/perl5/5.26.1"
$(MAP_TARGET) :: $(MAKE_APERL_FILE)
$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@
$(MAKE_APERL_FILE) : static $(FIRST_MAKEFILE) pm_to_blib
Makefile.old view on Meta::CPAN
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Data::Printer" VERSION="0.40" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="DateTime::" VERSION="1.51" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Moops::" VERSION="0.034" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Test::More" VERSION="1.302181" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Test::Output" VERSION="1.031" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.26" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> Apache2-Dummy-Request.ppd
$(NOECHO) $(ECHO) '</SOFTPKG>' >> Apache2-Dummy-Request.ppd
Apache2-ModLogConfig
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
offer_nice_chunk|||
oopsAV|||
oopsHV|||
#endif
/* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
* automatically be defined as the correct argument.
*/
#if (PERL_BCDVERSION <= 0x5005005)
#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_BCDVERSION < 0x5004068)
/* 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)) {
Apache2-ModXml2
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
offer_nice_chunk|||
oopsAV|||
oopsHV|||
#endif
/* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
* automatically be defined as the correct argument.
*/
#if (PERL_BCDVERSION <= 0x5005005)
#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_BCDVERSION < 0x5004068)
/* 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)) {
Apache2-SSI
view release on metacpan or search on metacpan
lib/Apache2/SSI/Notes.pm view on Meta::CPAN
Provided with data, and this will write the data to the shared memory.
=head1 CAVEAT
L<Apache2::SSI::Notes> do not work under threaded perl
=head1 AUTHOR
Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
Apache2-SafePnotes
view release on metacpan or search on metacpan
perl-Apache2-SafePnotes.spec view on Meta::CPAN
[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT;
%files
%defattr(-, root, root)
%{instbase}/Apache2
%{instbase}/i586-linux-thread-multi/auto/Apache2
%doc %{manbase}/man3/Apache2::SafePnotes.3pm.gz
/var/adm/perl-modules/%{name}
%doc MANIFEST README
Apache2-ScoreBoardFile
view release on metacpan or search on metacpan
lib/Apache2/ScoreBoardFile.pm view on Meta::CPAN
$sb=Apache2::ScoreBoardFile->new($filename);
$sb=Apache2::ScoreBoardFile->new($filehandle);
$shared_mem_size=$sb->shmsize;
$server_limit=$sb->server_limit;
$thread_limit=$sb->thread_limit;
$type=$sb->type;
$generation=$sb->generation;
$lb_limit=$sb->lb_limit;
$restart_time=$sb->restart_time;
lib/Apache2/ScoreBoardFile.pm view on Meta::CPAN
$pid=$process->pid;
$generation=$process->generation;
$quiescing=$process->quiescing;
$worker=$sb->worker($index);
$worker=$sb->worker($proc_index, $thread_index);
$thread_num=$worker->thread_num;
$pid=$worker->pid;
$generation=$worker->generation;
$status=$worker->status;
$access_count=$worker->access_count;
$bytes_served=$worker->bytes_served;
lib/Apache2/ScoreBoardFile.pm view on Meta::CPAN
=head3 $server_limit=$sb-E<gt>server_limit;
see C<ServerLimit> in Apache HTTP Server Documentation.
=head3 $thread_limit=$sb-E<gt>thread_limit;
see C<ThreadLimit> in Apache HTTP Server Documentation.
=head3 $type=$sb-E<gt>type;
lib/Apache2/ScoreBoardFile.pm view on Meta::CPAN
=head3 $worker=$sb-E<gt>worker($index);
returns an C<Apache2::ScoreBoardFile::Worker> object by its overall index.
=head3 $worker=$sb-E<gt>worker($proc_index, $thread_index);
returns an C<Apache2::ScoreBoardFile::Worker> object by its process index
and the thread index within the process.
=head3 $thread_num=$worker-E<gt>thread_num;
returns the overall index of a worker
=head3 $pid=$worker-E<gt>pid;
with prefork-MPM this field is unused. F<include/scoreboard.h> explains:
/* With some MPMs (e.g., worker), a worker_score can represent
* a thread in a terminating process which is no longer
* represented by the corresponding process_score. These MPMs
* should set pid and generation fields in the worker_score.
*/
=head3 $generation=$worker-E<gt>generation;
with prefork-MPM this field is unused. F<include/scoreboard.h> explains:
/* With some MPMs (e.g., worker), a worker_score can represent
* a thread in a terminating process which is no longer
* represented by the corresponding process_score. These MPMs
* should set pid and generation fields in the worker_score.
*/
=head3 $status=$worker-E<gt>status;
Apache2-Translation
view release on metacpan or search on metacpan
a "Config" rule.
In Apache 2.2 at least up to 2.2.4 there is a bug that prevents
"Config: AllowOverride Options" from working properly. The reason is
an uninitialized variable that is by cause 0, see
<http://www.gossamer-threads.com/lists/apache/dev/327770#327770>
Call: string, ?@params?
Well, the name suggests it is calling a subroutine. Assume you have
several WEB applications running on the same server, say one
application for each department. Each department needs of course
ApacheBench
view release on metacpan or search on metacpan
* implement per-run execute() using system threads, then global execute() can
just fire off as many threads as there are runs
- this would allow (re-)sending of individual runs, iterations within a run
- complications with concurrent request slots: does each thread keep
its own set of file descriptors, or (sh)(c)ould threads share them?
* need a way to simulate real-world problems: for example
- slow dialup modem connections
o e.g. add an automatic delay after each request in a run
o also support a pre-configured delay inside a run
- user-presses-stop, aka broken socket
Apophis
view release on metacpan or search on metacpan
Revision history for Apophis
0.03 2026-03-29
- Fix Windows build failures on threaded Perl (MULTIPLICITY)
- Undo perl.h macro overrides for mkdir, stat, unlink on WIN32
- Use portable apophis_mkdir wrapper (_mkdir on Windows, mkdir on POSIX)
- Use Perl Stat_t typedef for struct stat portability
- Conditional unistd.h include with io.h/direct.h fallback on Windows
- Fix Makefile.PL to locate Horus include_dir without loading XS bootstrap
App-AltSQL
view release on metacpan or search on metacpan
lib/App/AltSQL/Model/MySQL.pm view on Meta::CPAN
# Execute the statement, allowing Ctrl-C to interrupt the call
eval {
eval {
my $h = set_sig_handler('INT', sub {
my $thread_id = $self->dbh->{mysql_thread_id};
$self->dbh->clone->do("KILL QUERY $thread_id");
die "Query aborted by Ctrl+C\n";
});
$sth->execute();
};
die "$@" if $@;
App-Anchr
view release on metacpan or search on metacpan
lib/App/Anchr/Command/anchors.pm view on Meta::CPAN
sub opt_spec {
return (
[ "outfile|o=s", "output filename, [stdout] for screen", { default => "anchors.sh" }, ],
[ 'min=i', 'minimal length of anchors', { default => 1000, }, ],
[ 'unambi=i', 'minimal coverage of unambiguous reads', { default => 2, }, ],
[ 'parallel|p=i', 'number of threads', { default => 8, }, ],
{ show_defaults => 1, }
);
}
sub usage_desc {
lib/App/Anchr/Command/anchors.pm view on Meta::CPAN
log_info "Unambiguous regions"
log_debug "bbmap"
bbmap.sh \
maxindel=0 strictmaxindel perfectmode \
threads=[% opt.parallel %] \
ambiguous=toss \
nodisk \
ref=SR.fasta in=pe.cor.fa \
outm=unambiguous.sam outu=unmapped.sam \
basecov=basecov.txt \
App-BS
view release on metacpan or search on metacpan
lib/BS/Package/Meta.pm view on Meta::CPAN
);
}
method parse_srcinfo_line : common ($line, %args) {
# Not sure if this bit is thread-safe, but there shouldn't be any
# issues with usage in non-blocking event-loop or forking code
state $_res_buff = $args{dest};
$_res_buff = $args{dest}
if keys $args{dest}->%* && $args{dest} ne $_res_buff;
App-Basis-ConvertText2
view release on metacpan or search on metacpan
fi
if [ "$OUPUT" == "" ] ; then
show_usage "ERROR: No output file specified"
fi
# we use the pipe option to control output into the file we want
cat "$INPUT" | java -jar $PLANTUML -nbthread auto -pipe >$OUPUT
# exit 0
~~~~
The content for this code-block must be the same that you would use to with the [PlantUML] software
App-Bootstrap-Perl
view release on metacpan or search on metacpan
bin/bootstrap-perl view on Meta::CPAN
my $logfile = "$build_path/bootstrap-perl.log";
my $logcommand = "$build_path/command.log";
my $giturl = "git://github.com/Perl/perl5.git";
my $cpucount = `cat /proc/cpuinfo | grep bogomips | wc -l`; chomp $cpucount;
my $threadcount = $cpucount + 1;
# getopt
my $dry;
my $prefix;
my $prefixbase = "$HOME/.bootstrapperl/$hostname";
my $version = "blead";
our $VERSION;
my $installdeps;
my $sourcetgz = "/var/tmp/perl.tar.gz";
my $blead = 0;
my $usethreads = 1;
my $bit64 = 1;
my $taintsupport = 1;
my $silentnotaint = 0;
my $help = 0;
my $test = 0;
bin/bootstrap-perl view on Meta::CPAN
my $forcebuildperl = 0;
my $forcemoduleinstall = 0;
my $perlformance = 0;
my $perlformance_local = 0;
my $perlformance_report = 0;
my $jobs = $threadcount;
my @mirrors;
my @modules;
my @runscripts = ();
my @runargs = ();
my @confargs = ();
bin/bootstrap-perl view on Meta::CPAN
chomp $out;
$out;
}
sub _perl_base_name {
my ($perl_revision, $perl_version, $perl_subversion, $usethreads, $bit64, $taintsupport, $silentnotaint, $gitdescribe, $gitchangeset, $exe_suffixes, $blead) = @_;
return join("-",
($blead ? "blead" : "$perl_revision.$perl_version"),
($usethreads ? "" : "no" )."thread",
($bit64 ? "" : "no" )."64bit",
($taintsupport ? "" : (($silentnotaint ? "silent" : "")."no"))."taint",
@$exe_suffixes,
);
}
sub _perl_exe_name {
my ($perl_revision, $perl_version, $perl_subversion, $usethreads, $bit64, $taintsupport, $silentnotaint, $gitdescribe, $gitchangeset, $exe_suffixes, $blead) = @_;
return join("-",
"perl",
_perl_base_name(@_),
);
}
sub _perl_pathprefix {
my ($perl_revision, $perl_version, $perl_subversion, $usethreads, $bit64, $taintsupport, $silentnotaint, $gitdescribe, $gitchangeset, $exe_suffixes, $blead) = @_;
return join("-",
$prefixbase."/perl",
_perl_base_name(@_),
$gitdescribe,
bin/bootstrap-perl view on Meta::CPAN
"prefixbase=s" => \$prefixbase,
"version|commit|c=s" => \$version,
"installdeps=s" => \$installdeps,
"sourcetgz=s" => \$sourcetgz,
"blead!" => \$blead,
"usethreads!" => \$usethreads,
"use64bit!" => \$bit64,
"taintsupport!" => \$taintsupport,
"silentnotaint!" => \$silentnotaint,
"help|h" => \$help,
"jobs|j=i" => \$jobs,
bin/bootstrap-perl view on Meta::CPAN
print $USER "# Bummer! Unrecognized version schema ($gitdescribe).\n";
print $USER "# ($perl_revision, $perl_version, $perl_subversion)\n";
exit 1;
}
my $codespeed_executable = _perl_exe_name ($perl_revision, $perl_version, $perl_subversion, $usethreads, $bit64, $taintsupport, $silentnotaint, $gitdescribe, $gitchangeset, \@EXESUFFIXES, $blead);
my $PREFIX = $prefix || _perl_pathprefix($perl_revision, $perl_version, $perl_subversion, $usethreads, $bit64, $taintsupport, $silentnotaint, $gitdescribe, $gitchangeset, \@EXESUFFIXES, $blead);
my $USETHREADS = $usethreads ? "-Dusethreads" : "";
my $BIT64 = $bit64 ? "-Duse64bitall" : "";
my $TAINTSUPPORT = $taintsupport ? "" : ($silentnotaint ? "-Accflags=-DSILENT_NO_TAINT_SUPPORT" : "-Accflags=-DNO_TAINT_SUPPORT");
print $USER "\n";
print $USER "============================================================\n\n";
bin/bootstrap-perl view on Meta::CPAN
print $USER "# Bummer!\n";
print $USER "# Use '--blead' only with commits in blead branch.\n";
exit 1;
}
$ENV{PERL_AUTOINSTALL} = "--defaultdeps";
$ENV{TEST_JOBS} = $threadcount;
$ENV{TWMC_TEST_PORT} = "9876";
my $perl_exe = "$PREFIX/bin/perl";
my $THREADS = $jobs ? "-j $jobs" : "-j $threadcount";
my $DRY = $dry ? "-n" : "";
# ========== build ==========
if ($forcebuildperl or ! -x $perl_exe )
bin/bootstrap-perl view on Meta::CPAN
if ($test)
{
my $api_version = print_and_qx_chomp qq!cd $build_path_perl; . ./config.sh && echo \$api_version!;
my $TEST = $api_version >= 11 ? "test_harness" : "test"; # only Perl 5.11+
my $TEST_JOBS = $jobs ? "TEST_JOBS=$jobs" : "TEST_JOBS=$threadcount";
print_and_system "cd $build_path_perl; $TEST_JOBS make $TEST";
}
# ========== install ==========
bin/bootstrap-perl view on Meta::CPAN
bootstrap-perl - Bootstrap Perl inclusive CPAN from git
=head1 SYNOPSIS
Install a threaded 64bit Perl using current "blead"
from git with CPAN config into a path like
C</$HOME/.bootstrapperl/$HOSTNAME/perl-5.15-thread-64bit-v5.15.5-258-ge7d0a3f>:
$ bootstrap-perl [ <OPTIONS> ]
=head2 Specify git revisions
bin/bootstrap-perl view on Meta::CPAN
$ bootstrap-perl --forcecpancfg
$ bootstrap-perl --noforcecpancfg
Default is B<on>.
=head3 use threads
Build a threaded Perl (C<-Dusethreads>):
$ bootstrap-perl --usethreads
which is already the default. To build non-threaded Perl use:
$ bootstrap-perl --nousethreads
=head3 use 64bit
Build a 64bit enabled Perl (C<-Duse64bitall>):
bin/bootstrap-perl view on Meta::CPAN
=head2 Unified installation prefix schema
It uses a unified naming schema for it's installation PREFIX:
/$HOME/.bootstrapperl/$HOSTNAME/perl-5.<VERSION>-<(no)?thread>-<(no)?64bit>-<(no)?taint>-<git-describe>
which leads to paths like this:
/home/ss5/.bootstrapperl/zomtec/perl-5.10-thread-64bit-taint-v5.10.0
/home/ss5/.bootstrapperl/zomtec/perl-5.15-thread-64bit-taint-v5.15.5-258-ge7d0a3f
This naming schema consist of the major version, basic configuration
and I<git-describe>.
=head1 ABOUT
App-CISetup
view release on metacpan or search on metacpan
bin/setup-travis-yml.pl view on Meta::CPAN
=head2 C<perl> and C<matrix>
The C<perl> block will be updated based on the following rules:
If your distro does not have XS and you did not force the use of threaded
Perls, then you get a block like this:
perl:
- blead
- dev
bin/setup-travis-yml.pl view on Meta::CPAN
- '5.20'
- '5.18'
- '5.16'
- '5.14'
If the distro has XS code or you pass the C<--force-threaded-perls>
command line argument, then you will get a block with every Perl from 5.14 to
the latest stable release, plus dev and blead, in both threaded and unthreaded
forms. This will look something like this:
perl:
- blead
- blead-thr
bin/setup-travis-yml.pl view on Meta::CPAN
recursive search so you can update many projects at once. In create mode it
will only create a file in the current directory.
This is required.
=head2 --force-threaded-perls
Force the inclusion of both threaded and unthreaded Perls in the generated
config, regardless of whether the distro has XS or not.
=head2 --perl-caching
If this is true, then a C<cache> block will added to cache the C<$HOME/perl5>
App-CLI-Plugin-Config-YAML-Syck
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '0.32';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on
if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die "Unknown type: ".$type;
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off.
# We emulate it here.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
App-CLI-Plugin-DBI
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '0.32';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on
if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die "Unknown type: ".$type;
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off.
# We emulate it here.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
( run in 0.941 second using v1.01-cache-2.11-cpan-677af5a14d3 )