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.
view all matches for this distribution
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
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
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)) {
view all matches for this distribution
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",
view all matches for this distribution
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
view all matches for this distribution
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
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.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
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
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)) {
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
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)) {
view all matches for this distribution
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>
view all matches for this distribution
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
view all matches for this distribution
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;
view all matches for this distribution
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
view all matches for this distribution
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
view all matches for this distribution
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 $@;
view all matches for this distribution
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 \
view all matches for this distribution
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
view all matches for this distribution
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
view all matches for this distribution
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>
view all matches for this distribution
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];
}
view all matches for this distribution
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];
}
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
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];
}
view all matches for this distribution
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];
}
view all matches for this distribution
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];
}
view all matches for this distribution
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];
}
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/App/CPANtoRPM.pm view on Meta::CPAN
#
# # Gotten from the build step
# # -------------------------
# bin_dir => /usr/bin The directories we're installing too
# lib_dir => /usr/lib/perl5/5.14.2
# arch_dir => /usr/lib/perl5/5.14.2/x86_64-linux-thread-multi
# man1_dir => /usr/share/man/man1
# man3_dir => /usr/share/man/man3
# config_cmd => perl Makefile.PL The commands used for each step
# build_cmd => make
# test_cmd => make test
view all matches for this distribution
view release on metacpan or search on metacpan
- libnet-ssleay-perl
- build-essential
So, to resume, under Ubuntu, for minimum requirements (tests won't all be runned) :
In this case, the php front-end won't be usable with this apache instance(which is, by the way, not a good idea).
#apt-get install apache2 apache2-threaded-dev libapache2-mod-perl2 build-essential libnet-ssleay-perl libssl-dev
If you want to run the entire test suite, you need some other functionnalities. Install the with :
#apt-get install libapache2-mod-php5 php5-common php5-cli php5-curl
2. Installation of the Perl Modules :
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Caoliu.pm view on Meta::CPAN
$post_hashref->{source} = $tx->req->url->to_string;
if ( my $download_link = $post_hashref->{rmdown_link} ) {
# set a alarm clock,when async download,perhaps program will block
# here,and every thread will block...
eval {
local $SIG{ALRM} = sub { die "TIMEOUT" };
alarm DOWNLOAD_FILE_TIME;
my $retry_times = 3;
while ($retry_times) {
view all matches for this distribution