view release on metacpan or search on metacpan
*) Feature: the ngx_http_fastcgi_module and the directives:
fastcgi_pass, fastcgi_root, fastcgi_index, fastcgi_params,
fastcgi_connect_timeout, fastcgi_send_timeout, fastcgi_read_timeout,
fastcgi_send_lowat, fastcgi_header_buffer_size, fastcgi_buffers,
fastcgi_busy_buffers_size, fastcgi_temp_path,
fastcgi_max_temp_file_size, fastcgi_temp_file_write_size,
fastcgi_next_upstream, and fastcgi_x_powered_by.
*) Bugfix: the "[alert] zero size buf" error; the bug had appeared in
0.1.3.
view release on metacpan or search on metacpan
lib/Nile.pm view on Meta::CPAN
# CLI
return 1;
#if (-t STDIN) { }
#use IO::Interactive qw(is_interactive interactive busy);if ( is_interactive() ) {print "Running interactively\n";}
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
=head2 error()
$app->error("error message");
view release on metacpan or search on metacpan
t/fam/sprites/sport_shuttlecock.png
t/fam/sprites/sport_soccer.png
t/fam/sprites/sport_tennis.png
t/fam/sprites/star.png
t/fam/sprites/status_away.png
t/fam/sprites/status_busy.png
t/fam/sprites/status_offline.png
t/fam/sprites/status_online.png
t/fam/sprites/stop.png
t/fam/sprites/style.png
t/fam/sprites/style_add.png
view release on metacpan or search on metacpan
lib/OOPS/OOPS1001.pm view on Meta::CPAN
our $debug_virtual_ovals = 0; # original values of virtual has
our $debug_hashscalar = 0; # scalar(%tied_hash)
our $debug_object_id = 0; # details of id allocation
our $debug_getobid_context = 0; # stack trace for new objects
our $debug_dbidelay = 0; # add small delay before chaning transaction mode
our $debug_tdelay = 150000; # loop size for busy wait
our $debug_dbi = 0; # DBI debug level: 0 or 1 or 2
# debug set for ref.t
$debug_27555 = $debug_write_ref = $debug_load_object = $debug_load_values = $debug_memory = $debug_commit = $debug_refalias = $debug_write_ref = 1 if 0;
view release on metacpan or search on metacpan
priority_class - Idle-Time/Regular/Time-Critical/Fixed-High
priority_level - Priority shift inside class (larger is higher)
sleepid - ???
slotid - "Global" thread id
state - 1,2,5 (see thread_state)
systime - Cumulative no. of busy ticks spent in syscalls
thread_state - Ready/Blocked/Running
threadid - Thread Id "in the process"
usertime - Cumulative no. of busy ticks spent in user code
Keep in mind that the semantic of priority_class is not monotonic,
monotonic is C<Idle-Time/Regular/Fixed-High/Time-Critical>.
The $href_modules is the same as for mod_info().
view release on metacpan or search on metacpan
RETVAL = "The local logon succeeded. The users"
" password is expired.";
break;
case UPM_SS_BUSY:
RETVAL = "The local logon failed. The Local"
" security was busy.";
break;
case UPM_SS_DEAD:
RETVAL = "The local logon failed. Local"
" security has terminated unexpectedly.";
break;
view release on metacpan or search on metacpan
lib/Object/Anon.pm view on Meta::CPAN
=over 4
=item *
Class caching. It'd be nice for the same return in a busy function to be able
to reuse the class that was generated last time. The only difficulty is
determining when to do this. L<Net::Twitter> does this with data returned from
the Twitter API by taking a SHA1 of the returned keys and uses that as a cache
key for a Moose metaclass. That's a nice approach when you know the incoming
hash is always JSON, but doesn't work as well when you can't predict the value
view release on metacpan or search on metacpan
lib/Object/Remote.pm view on Meta::CPAN
=item Run loop favors certain filehandles/connections
=item High levels of load can starve timers of execution opportunities
These are issues that only become a problem at large scales. The end result of these two
issues is quite similiar: some remote objects may block while the local run loop is either busy
servicing a different connection or is not executing because control has not yet been returned to
it. For the same reasons timers may not get an opportunity to execute in a timely way.
Internally Object::Remote uses timers managed by the run loop for control tasks. Under
high load the timers can be preempted by servicing I/O on the filehandles and execution
view release on metacpan or search on metacpan
lib/ObjectDBI.pm view on Meta::CPAN
'sequence' => Sequence name for easily retrieving new IDs.
'sequencesql' => Sequence SQL for retrieving a new ID.
'sequencefnc' => A function ref to be used to retrieve a new ID.
'overwrite' => Overwrite objects of the same type and name.
'chunksize' => A number defining at what length values will get split.
'debug' => Setting it at anything will make STDERR a busy stream.
About sequences: the first available method given will be used. So please
do yourself a favour, avoid confusion, and use only one of the available
methods out of 'sequence', 'sequencesql' and 'sequencefnc'.
view release on metacpan or search on metacpan
$e->cb (sub { $flag = 1 });
1 until $flag;
# $flag is now 1
The reason why you shouldn't blindly copy the above code is that
busy waiting is a really really bad thing, and really really bad for
performance.
While at first this asynchronous business might look exciting, it can be
really hard, because you need to be prepared for the callback code to be
executed at any time, which limits the amount of things the callback code
view release on metacpan or search on metacpan
t/608_bug_website_displayed.t view on Meta::CPAN
$guide->wiki->write_node( "South Croydon Station$postfix",
"A sleepy main-line station in what is arguably the nicest part of Croydon.",
undef, { website => "$prefix://example.com/" } )
or die "Couldn't write node";
$guide->wiki->write_node( "North Croydon Station$postfix",
"A busy main-line station in what is arguably the furthest North part of "
. "Croydon.", undef, { website => "$prefix://longer.example.com/asdfasdf" } )
or die "Couldn't write node";
$guide->wiki->write_node( "East Croydon Station$postfix",
"A busy main-line station that actually exists.", undef,
{ website => "$prefix://www.example.com/foo" } )
or die "Couldn't write node";
$guide->wiki->write_node( "West Croydon Station$postfix",
"Another main-line station that actually exists.", undef,
{ website => "$prefix://www.example.com/bar/" } )
view release on metacpan or search on metacpan
conf/sample-httpd_static.conf view on Meta::CPAN
RewriteRule ^/robots\.txt - [L]
# Discard (with a '403 Forbidden') requests for the Code Red document
# (hole in IIS servers that can keep your backend mod_perl servers
# busy...)
RewriteRule ^/default\.ida - [F]
# Proxy ([P]) all other requests to a back-end server
view release on metacpan or search on metacpan
lib/OpenMP/Environment.pm view on Meta::CPAN
=item C<GOMP_STACKSIZE>
Determines how long a threads waits actively with consuming CPU
power before waiting passively without consuming CPU power. The
value may be either INFINITE, INFINITY to always wait actively or
an integer which gives the number of spins of the busy-wait loop.
The integer may optionally be followed by the following suffixes
acting as multiplication factors: k (kilo, thousand), M (mega,
million), G (giga, billion), or T (tera, trillion). If undefined,
0 is used when OMP_WAIT_POLICY is PASSIVE, 300,000 is used when
OMP_WAIT_POLICY is undefined and 30 billion is used when
view release on metacpan or search on metacpan
AUTHORS
Eric Andreychek <eric@openthought.net>
Thanks to Chris Winters for helping this project get started. Although he's
quite busy these days, this project wouldn't be where it is today if it weren't
for his efforts early on.
view release on metacpan or search on metacpan
js/OpenThought.js view on Meta::CPAN
this.getOpenChannel = function() {
var channelName;
for(var i=0; i < channels.length ;i++) {
if(! channels[i]["busy"]) {
channels[i]["busy"] = true;
this.log.info("Reusing channel [" + i + "].");
return channels[i];
}
}
var channel = new Object;
var id = channels.length;
channels[id] = channel;
channels[id]["busy"] = true;
var channel_info = this.createChannel(id);
channels[id]["channel"] = channel_info[0];
channels[id]["type"] = channel_info[1];
return channels[id];
js/OpenThought.js view on Meta::CPAN
this.Complete = function(channel) {
if (channel.name && channel.name >= 0) {
this.log.info('Freeing channel [' + channel.name + ']');
channels[channel.name]["busy"] = false;
}
return true;
}
view release on metacpan or search on metacpan
lib/auto/OpusVL/AppKit/root/static/js/jquery-ui-1.9.0.custom.min.js view on Meta::CPAN
/*! jQuery UI - v1.9.0 - 2012-10-24
* http://jqueryui.com
* Includes: jquery.ui.core.js, jquery.ui.widget.js, jquery.ui.mouse.js, jquery.ui.position.js, jquery.ui.draggable.js, jquery.ui.droppable.js, jquery.ui.resizable.js, jquery.ui.selectable.js, jquery.ui.sortable.js, jquery.ui.accordion.js, jquery.ui.a...
* Copyright (c) 2012 jQuery Foundation and other contributors Licensed MIT */
(function(e,t){function i(t,n){var r,i,o,u=t.nodeName.toLowerCase();return"area"===u?(r=t.parentNode,i=r.name,!t.href||!i||r.nodeName.toLowerCase()!=="map"?!1:(o=e("img[usemap=#"+i+"]")[0],!!o&&s(o))):(/input|select|textarea|button|object/.test(u)?!t...
view release on metacpan or search on metacpan
Shell/Meta.pm view on Meta::CPAN
$parent->{dbh}->errstr;
} else {
$parent->sth_go( $sth, 1 );
$parent->display_results( $sth );
}
$parent->{dbiwd}->Unbusy;
}
1;
view release on metacpan or search on metacpan
orac_Base.pm view on Meta::CPAN
$t->pack(-expand=>1,-fil=>'both');
tie (*THIS_TEXT,'Tk::Text',$t);
print THIS_TEXT "$_[1]\n";
$d->Show;
$_[0]->Unbusy;
}
sub about_orac {
my $self = shift;
view release on metacpan or search on metacpan
lib/OurNet/BBS/MAPLE2/BoardGroup.pm view on Meta::CPAN
$self->{shmid} = shmget($self->{shmkey}, $self->{maxboard} * $packsize + 16, 0)) {
tie $self->{shm}{touchtime}, 'OurNet::BBS::ShmScalar',
$self->{shmid}, $self->{maxboard}*$packsize + 4, 4, 'L';
tie $self->{shm}{number}, 'OurNet::BBS::ShmScalar',
$self->{shmid}, $self->{maxboard}*$packsize + 8, 4, 'L';
tie $self->{shm}{busystate}, 'OurNet::BBS::ShmScalar',
$self->{shmid}, $self->{maxboard}*$packsize + 12, 4, 'L';
}
}
# Fetch key: id savemode author date title filemode body
view release on metacpan or search on metacpan
lib/P9Y/ProcessTable.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
examples/worker-pool-prototype.pl view on Meta::CPAN
push @{$self->{worker_pids}}, $pid;
push @{$self->{pipes}}, {
to_worker => $parent_wr,
from_worker => $parent_rd,
busy => 0,
id => $id,
};
say "Started worker $id (PID $pid)";
}
sub _get_idle_worker ($self) {
for my $w (@{$self->{pipes}}) {
return $w unless $w->{busy};
}
return undef;
}
async sub call ($self, $handler_name, %opts) {
examples/worker-pool-prototype.pl view on Meta::CPAN
my $worker;
while (!($worker = $self->_get_idle_worker())) {
await Future::IO->sleep(0.01);
}
$worker->{busy} = 1;
my $job = freeze({ handler => $handler_name, args => $args });
my $len = pack('N', length($job));
# Send job to worker using Future::IO
examples/worker-pool-prototype.pl view on Meta::CPAN
$resp_len - length($resp_data)
);
$resp_data .= $chunk;
}
$worker->{busy} = 0;
my $response = thaw($resp_data);
if ($response->{error}) {
die $response->{error};
view release on metacpan or search on metacpan
contrib/gui_pp/gpp view on Meta::CPAN
}
print "$pp @pp_opts\n";
$mw->Busy();
system $pp, @pp_opts;
$mw->Unbusy();
print "Done.\n\n";
} ## end sub run_pp
view release on metacpan or search on metacpan
PApp/SCGI/Worker.pm view on Meta::CPAN
defined $AnyEvent::MODEL
and die "PApp::SCGI::Worker: error: anyevent already initialised\n";
$IO::AIO::VERSION and IO::AIO::nreqs ()
and die "PApp::SCGI::Worker: error: IO::AIO busy in template process\n";
}
sub mount {
my (@apps) = @_;
view release on metacpan or search on metacpan
INFO/RoadMap view on Meta::CPAN
These are things that would be useful in being able to handle page design
in a higher-level manner. This would almost certainly be another package,
such as PDF::Builder::Environments.
A. Introduce the concept of environments, which take care of handling much of
the busy-work of laying out a page.
page -- including margins (define the work area); page numbering, outline,
and slider thumb consistent page numbers; headings/footings. also
odd/even page layouts, odd-only, or single page (roll printer) layout
column(s) -- define single or multiple columns, not necessarily of
view release on metacpan or search on metacpan
sndlib/audio.c view on Meta::CPAN
case SNDLIB_CHANNELS_NOT_AVAILABLE: return("channel(s) not available"); break;
case SNDLIB_SRATE_NOT_AVAILABLE: return("srate not available"); break;
case SNDLIB_FORMAT_NOT_AVAILABLE: return("format not available"); break;
case SNDLIB_NO_INPUT_AVAILABLE: return("no input available"); break;
case SNDLIB_NO_OUTPUT_AVAILABLE: return("no output available"); break;
case SNDLIB_INPUT_BUSY: return("input busy"); break;
case SNDLIB_OUTPUT_BUSY: return("output busy"); break;
case SNDLIB_CONFIGURATION_NOT_AVAILABLE: return("configuration not available"); break;
case SNDLIB_INPUT_CLOSED: return("input closed"); break;
case SNDLIB_OUTPUT_CLOSED: return("output closed"); break;
case SNDLIB_IO_INTERRUPTED: return("io interrupted"); break;
case SNDLIB_NO_LINES_AVAILABLE: return("no lines available"); break;
sndlib/audio.c view on Meta::CPAN
md = open(dname,O_RDWR|O_NONBLOCK,0);
if (md == -1)
{
if (errno == EBUSY)
{
fprintf(stderr,"%s is busy: can't access it",dname);
nmix++;
continue;
}
else break;
}
sndlib/audio.c view on Meta::CPAN
if (fd == -1)
{
close(md);
if (errno == EBUSY) /* in linux /usr/include/asm/errno.h */
{
fprintf(stderr,"%s is busy: can't access it\n",dname);
ndsp++;
continue;
}
else
{
sndlib/audio.c view on Meta::CPAN
int audio_systems(void) {return(1);}
char *audio_system_name(int system) {return("HPUX");}
/* struct audio_status status_b;
* ioctl(devAudio, AUDIO_GET_STATUS, &status_b)
* not_busy = (status_b.transmit_status == AUDIO_DONE);
*/
int open_audio_input(int ur_dev, int srate, int chans, int format, int size)
{
int fd,i,dev;
view release on metacpan or search on metacpan
matio-1.5.0/config/install-sh view on Meta::CPAN
# to itself, or perhaps because mv is so ancient that it does not
# support -f.
{
# Now remove or move aside any old file at destination location.
# We try this two ways since rm can't unlink itself on some
# systems and the destination file might be busy for other
# reasons. In this case, the final cleanup might fail but the new
# file should still install successfully.
{
test ! -f "$dst" ||
$doit $rmcmd -f "$dst" 2>/dev/null ||
view release on metacpan or search on metacpan
For bug tracking, use the CPAN bug tracker at:
https://rt.cpan.org/Dist/Display.html?Name=PGP-Sign
However, please be aware that I tend to be extremely busy and work
projects often take priority. I'll save your report and get to it as
soon as I can, but it may take me a couple of months.
SOURCE REPOSITORY
view release on metacpan or search on metacpan
IT/perlfaq5.pod view on Meta::CPAN
or die "non posso aprire file.lock: $!":
eccetto che, deplorevolmente, la creazione di file (e la cancellazione)
non E<egrave> atomica su NFS, dunque questo non funzionerE<agrave> (non
tutte le volte, almeno) in rete. Sono stati suggeriti vari schemi che
coinvolgono link(), ma questi tendono a implicare del busy-wait, anch'esso
poco desiderabile.
=head2 Non riesco ancora ad ottenere il lock. Voglio solo incrementare un numero nel file. Come faccio?
X<contatore> X<file, contatore>
view release on metacpan or search on metacpan
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
On some older systems, it may sleep up to a full second less than what
you requested, depending on how it counts seconds. Most modern systems
always sleep the full amount. They may appear to sleep longer than that,
however, because your process might not be scheduled right away in a
busy multitasking system.
For delays of finer granularity than one second, the Time::HiRes module
(from CPAN, and starting from Perl 5.8 part of the standard
distribution) provides usleep(). You may also use Perl's four-argument
version of select() leaving the first three arguments undefined, or you