Result:
found more than 757 distributions - search limited to the first 2001 files matching your query
( run in 0.982 )
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
'Point out my state-room, Sir,' says Jonah now, 'I'm travel-weary;
I need sleep." "Thou look'st like it,' says the Captain,
'there's thy room.' Jonah enters, and would lock the door,
but the lock contains no key. Hearing him foolishly fumbling there,
the Captain laughs lowly to himself, and mutters something about
the doors of convicts' cells being never allowed to be locked within.
All dressed and dusty as he is, Jonah throws himself into his berth,
and finds the little state-room ceiling almost resting on his forehead.
The air is close, and Jonah gasps. Then, in that contracted hole,
sunk, too, beneath the ship's water-line, Jonah feels the heralding
presentiment of that stifling hour, when the whale shall hold him
t/files/moby11.txt view on Meta::CPAN
"Queequeg!--Queequeg!"--all still. Something must
have happened. Apoplexy! I tried to burst open the door;
but it stubbornly resisted. Running down stairs, I quickly
stated my suspicions to the first person I met--the chamber-maid.
"La! la!" she cried, "I thought something must be the matter.
I went to make the bed after breakfast, and the door was locked;
and not a mouse to be heard; and it's been just so silent ever since.
But I thought, may be, you had both gone off and locked your
baggage in for safe keeping. La! La, ma'am!--Mistress! murder!
Mrs. Hussey! apoplexy!"--and with these cries she ran towards
the kitchen, I following.
Mrs. Hussey soon appeared, with a mustard-pot in one hand
t/files/moby11.txt view on Meta::CPAN
unless it's before the Grand Jury." And with these cracked words
he finally departed, leaving me, for the moment, in no small
wonderment at his frantic impudence.
At last, stepping on board the Pequod, we found everything in
profound quiet, not a soul moving. The cabin entrance was locked within;
the hatches were all on, and lumbered with coils of rigging.
Going forward to the forecastle, we found the slide of the scuttle open.
Seeing a light, we went down, and found only an old rigger there,
wrapped in a tattered pea-jacket. He was thrown at whole length upon
two chests, his face downwards and inclosed in his folded arms.
t/files/moby11.txt view on Meta::CPAN
in Ahab, there seemed not to lurk the smallest social arrogance.
With one mind, their intent eyes all fastened upon the old man's knife,
as he carved the chief dish before him. I do not suppose that for the
world they would have profaned that moment with the slightest observation,
even upon so neutral a topic as the weather. No! And when reaching
out his knife and fork, between which the slice of beef was locked,
Ahab thereby motioned Starbuck's plate towards him, the mate
received his meat as though receiving alms; and cut it tenderly;
and a little started if, perchance, the knife grazed against the plate;
and chewed it noiselessly; and swallowed it, not without circumspection.
For, like the Coronation banquet at Frankfort, where the German Emperor
t/files/moby11.txt view on Meta::CPAN
After the ceremony was concluded upon the present occasion,
I felt all the easier; a stone was rolled away from my heart.
Besides, all the days I should now live would be as good as the days
that Lazarus lived after his resurrection; a supplementary
clean gain of so many months or weeks as the case may be.
I survived myself; my death and burial were locked up in my chest.
I looked round me tranquilly and contentedly, like a quiet
ghost with a clean conscience sitting inside the bars of a
snug family vault.
Now then, thought I, unconsciously rolling up the sleeves of my frock,
t/files/moby11.txt view on Meta::CPAN
"On the eastern shore of our Lake Erie, Don; but--I crave
your courtesy--may be, you shall soon hear further of all that.
Now, gentlemen, in square-sail brigs and three-masted ships,
well nigh as large and stout as any that ever sailed out of your
old Callao to far Manilla; this Lakeman, in the land-locked heart
of our America, had yet been nurtured by all those agrarian
freebooting impressions popularly connected with the open ocean.
For in their interflowing aggregate, those grand fresh-water seas
of ours,--Erie, and Ontario, and Huron, and Superior, and Michigan,--
possess an ocean-like expansiveness, with many of the ocean's
t/files/moby11.txt view on Meta::CPAN
high-ruffed Mendanna trod them and old Figuera chronicled them.
Nor when expandingly lifted by your subject, can you fail
to trace out great whales in the starry heavens, and boats
in pursuit of them; as when long filled with thoughts of war
the Eastern nations saw armies locked in battle among the clouds.
Thus at the North have I chased Leviathan round and round the Pole
with the revolutions of the bright points that first defined him to me.
And beneath the effulgent Antarctic skies I have boarded
the Argo-Navis, and joined the chase against the starry Cetus
far beyond the utmost stretch of Hydrus and the Flying Fish.
t/files/moby11.txt view on Meta::CPAN
a small, strong line is prepared with a wooden float at its outer end,
and a weight in its middle, while the other end is secured to the ship.
By adroit management the wooden float is made to rise on the other
side of the mass, so that now having girdled the whale, the chain
is readily made to follow suit; and being slipped along the body,
is at last locked fast round the smallest part of the tail, at the point
of junction with its broad flukes or lobes.
If moody Ahab was now all quiescence, at least so far as could
be known on deck, Stubb, his second mate, flushed with conquest,
t/files/moby11.txt view on Meta::CPAN
where in her murderous hold this frigate earth is ballasted
with bones of millions of the drowned; there, in that awful
water-land, there was thy most familiar home. Thou hast been
where bell or diver never went; hast slept by many a sailor's side,
where sleepless mothers would give their lives to lay them down.
Thou saw'st the locked lovers when leaping from their flaming ship;
heart to heart they sank beneath the exulting wave;
true to each other, when heaven seemed false to them.
Thou saw'st the murdered mate when tossed by pirates from
the midnight deck; for hours he fell into the deeper midnight
of the insatiate maw; and his murderers still sailed on unharmed--
t/files/moby11.txt view on Meta::CPAN
of speed to rid himself of the iron leech that had fastened to him;
as we thus tore a white gash in the sea, on all sides menaced
as we flew, by the crazed creatures to and fro rushing about us;
our beset boat was like a ship mobbed by ice-isles in a tempest,
and striving to steer through their complicated channels and straits,
knowing not at what moment it may be locked in and crushed.
But not a bit daunted, Queequeg steered us manfully; now sheering
off from this monster directly across our route in advance;
now edging away from that, whose colossal flukes were suspended overhead,
while all the time, Starbuck stood up in the bows, lance in hand,
t/files/moby11.txt view on Meta::CPAN
must have contained at least two or three square miles.
At any rate--though indeed such a test at such a time might
be deceptive--spoutings might be discovered from our low boat
that seemed playing up almost from the rim of the horizon.
I mention this circumstance, because, as if the cows and
calves had been purposely locked up in this innermost fold;
and as if the wide extent of the herd had hitherto prevented them
from learning the precise cause of its stopping; or, possibly,
being so young, unsophisticated, and every way innocent
and inexperienced; however it may have been, these smaller whales--
now and then visiting our becalmed boat from the margin of the lake--
t/files/moby11.txt view on Meta::CPAN
But the spine. For that, the best way we can consider it is,
with a crane, to pile its bones high up on end. No speedy enterprise.
But now it's done, it looks much like Pompey's Pillar.
There are forty and odd vertebrae in all, which in the skeleton
are not locked together. They mostly lie like the great knobbed
blocks on a Gothic spire, forming solid courses of heavy masonry.
The largest, a middle one, is in width something less than three feet,
and in depth more than four. The smallest, where the spine tapers
away into the tail, is only two inches in width, and looks something
like a white billiard-ball. I was told that there were still
t/files/moby11.txt view on Meta::CPAN
"He turns and turns him to it,--how slowly, but how steadfastly,
his homage-rendering and invoking brow, with his last dying motions.
He too worships fire; most faithful, broad, baronial vassal of the sun!--
Oh that these too-favoring eyes should see these too-favoring sights.
Look! here, far water-locked; beyond all hum of human weal or woe;
in these most candid and impartial seas; where to traditions no rocks
furnish tablets; where for long Chinese ages, the billows have still
rolled on speechless and unspoken to, as stars that shine upon
the Niger's unknown source; here, too, life dies sunwards full of faith,
but see! no sooner dead, than death whirls round the corpse, and it
t/files/moby11.txt view on Meta::CPAN
and hawsers; chained down to ring-bolts on this cabin floor;
he would be more hideous than a caged tiger, then. I could
not endure the sight; could not possibly fly his howlings;
all comfort, sleep itself, inestimable reason would leave me
on the long intolerable voyage. What, then, remains? The land
is hundreds of leagues away, and locked Japan the nearest.
I stand alone here upon an open sea, with two oceans and a
whole continent between me and law.--Aye, aye, 'tis so.--
Is heaven a murderer when its lightning strikes a would-be
murderer in his bed, tindering sheets and skin together?--
And would I be a murderer, then, if"--and slowly, stealthily,
t/files/moby11.txt view on Meta::CPAN
frenzied with all this, he seized the long bone with his
naked hands, and wildly strove to wrench it from its gripe.
As now he thus vainly strove, the jaw slipped from him;
the frail gunwales bent in, collapsed, and snapped,
as both jaws, like an enormous shears, sliding further aft,
bit the craft completely in twain, and locked themselves fast
again in the sea, midway between the two floating wrecks.
These floated aside, the broken ends drooping, the crew at
the stern-wreck clinging to the gunwales, and striving to hold
fast to the oars to lash them across.
App-Prove-Plugin-Elasticsearch
view release on metacpan or search on metacpan
scripts/testrail-migrate.pl view on Meta::CPAN
my $planRuns = $tr->getChildRuns($tr->getPlanByID($plan->{id}));
push(@$runs,@$planRuns);
}
foreach my $run (reverse @$runs) {
unless ($run->{passed_count} + $run->{failed_count} + $run->{blocked_count} +
$run->{custom_status1_count} + $run->{custom_status2_count} + $run->{custom_status3_count} +
$run->{custom_status4_count} + $run->{custom_status5_count} + $run->{custom_status6_count} +
$run->{custom_status7_count}
) {
print "Run $run->{id} had no results, skipping...\n";
App-Rangeops
view release on metacpan or search on metacpan
lib/App/Rangeops.pm view on Meta::CPAN
help: display a command's help screen
circos: range links to circos links or highlight file
clean: replace ranges within links, incorporate hit strands and remove nested links
connect: connect bilaterial links into multilateral ones
create: create blocked fasta files from range links
filter: filter links by numbers of ranges or length difference
merge: merge overlapped ranges via overlapping graph
replace: replace ranges within links and incorporate hit strands
sort: sort links and ranges within links
App-RecordStream
view release on metacpan or search on metacpan
lib/App/RecordStream/Manual/Story.pm view on Meta::CPAN
When faced with awesome prowess like this, what can a 346-foot, 26000-ton sea
monster from beyond the stars do but slink back to its cave and bide its time
beneath downtown Seattle?
Should you find yourself locked in mortal combat with a unspeakable horror of
your own you can always turn to --help. All recs scripts come equipped with
detailed usage instructions triggered by the --help option. You can also turn
to `man recs` (if the man file is installed correctly)
=head1 SEE ALSO
App-RedisTop
view release on metacpan or search on metacpan
t/01.component.t view on Meta::CPAN
use App::RedisTop::Component::Slowlog;
use App::RedisTop::Component::DB;
my $test_stats = {
'bgsave_in_progress' => 0,
'blocked_clients' => 0,
'changes_since_last_save' => 3,
'connected_clients' => 40,
'connected_slaves' => 0,
'db0' => 'keys=55,expires=21',
'evicted_keys' => 0,
t/01.component.t view on Meta::CPAN
'slowlog_len' => 12,
};
my $test_prev_stats = {
'bgsave_in_progress' => 0,
'blocked_clients' => 0,
'changes_since_last_save' => 0,
'connected_clients' => 10,
'connected_slaves' => 0,
'db0' => 'keys=5,expires=0',
'evicted_keys' => 0,
App-Relate-Complex
view release on metacpan or search on metacpan
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I am the psychotherapist. Please, describe your problems. Each
time you are finished talking, type RET twice.
.. Should I get locked in the PRINCIPAL'S OFFICE today --
or have a VASECTOMY??
Why do you say that?
Are we live or on tape?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I am deeply CONCERNED and I want something GOOD for BREAKFAST!
Perhaps this could be the reason for any hobbies you have?
.. Should I get locked in the PRINCIPAL'S OFFICE today --
or have a VASECTOMY??
What makes you think do not embarrass you?
I'm having fun HITCHHIKING to CINCINNATI or FAR ROCKAWAY!!
App-RemoteCommand
view release on metacpan or search on metacpan
lib/App/RemoteCommand.pm view on Meta::CPAN
sub _post_process {
my ($self, $ready) = @_;
my ($fh, $pid, $host, $buffer) = @{$ready}{qw(fh pid host buffer)};
if ($fh) {
# XXX: We use select() here; otherwise it happens that
# <$fh> is blocked under ssh proxy
my $select = IO::Select->new($fh);
while ($select->can_read(TICK_SECOND)) {
my $len = sysread $fh, my $buf, 64*1024;
DEBUG and logger " POST READ %s, pid %d, len %s", $host, $pid, defined $len ? $len : 'undef';
if (defined $len && $len > 0) {
App-Repository
view release on metacpan or search on metacpan
lib/App/Repository.pm view on Meta::CPAN
# this is a write lock for the table
sub _lock_table {
&App::sub_entry if ($App::trace);
my ($self, $table) = @_;
if (! $self->{locked}) { # I have locked it myself, so I don't need to again
my ($name, $dbname, $context, $rlock);
$name = $self->{name};
$dbname = $self->{dbname};
$context = $self->{context};
$rlock = $context->resource_locker($name); # get the one that corresponds to this repository
$rlock->lock("db.$dbname.$table");
$self->{locked} = 1;
}
&App::sub_exit() if ($App::trace);
}
# unlocks the write lock for the table
sub _unlock_table {
&App::sub_entry if ($App::trace);
my ($self, $table) = @_;
if ($self->{locked}) {
my ($name, $dbname, $context, $rlock);
$name = $self->{name};
$dbname = $self->{dbname};
$context = $self->{context};
$rlock = $context->resource_locker($name); # get the one that corresponds to this repository
$rlock->unlock("db.$dbname.$table");
delete $self->{locked};
}
&App::sub_exit() if ($App::trace);
}
#############################################################################
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Macro.pm view on Meta::CPAN
traits => [qw( SetOnce )],
default => sub { DateTime->now() },
required => 1,
);
has 'is_locked' => (
is => 'rw',
isa => 'Bool',
default => 0,
);
lib/App/RoboBot/Macro.pm view on Meta::CPAN
$logger->debug('Macro load_all() request.');
my $res = $bot->config->db->do(q{
select m.macro_id, m.network_id, m.name, m.arguments, m.definition,
n.name as nick, m.defined_at, m.is_locked
from macros m
join nicks n on (n.id = m.defined_by)
});
return unless $res;
lib/App/RoboBot/Macro.pm view on Meta::CPAN
name => $res->{'name'},
arguments => decode_json($res->{'arguments'}),
definition => $res->{'definition'},
definer => App::RoboBot::Nick->new( config => $bot->config, name => $res->{'nick'} ),
timestamp => DateTime::Format::Pg->parse_datetime($res->{'defined_at'}),
is_locked => $res->{'is_locked'},
);
}
$logger->debug('All macros loaded. Returning collection.');
lib/App/RoboBot/Macro.pm view on Meta::CPAN
update macros set ??? where macro_id = ?
}, {
name => $self->name,
arguments => encode_json($self->arguments),
definition => $self->definition,
is_locked => $self->is_locked,
}, $self->id);
return 1 if $res;
} else {
$self->log->debug(sprintf('Macro %s does not have ID. Creating new record.', $self->name));
lib/App/RoboBot/Macro.pm view on Meta::CPAN
network_id => $self->network->id,
arguments => encode_json($self->arguments),
definition => $self->definition,
defined_by => $self->definer->id,
defined_at => $self->timestamp,
is_locked => $self->is_locked,
});
if ($res && $res->next) {
$self->log->debug(sprintf('New macro record created for %s on network %s (ID %d).', $self->name, $self->network->name, $res->{'macro_id'}));
lib/App/RoboBot/Macro.pm view on Meta::CPAN
sub lock {
my ($self) = @_;
$self->log->debug(sprintf('Macro lock request for %s on network %s.', $self->name, $self->network->name));
return 0 if $self->is_locked;
$self->is_locked(1);
return $self->save;
}
sub unlock {
my ($self) = @_;
$self->log->debug(sprintf('Macro unlock request for %s on network %s.', $self->name, $self->network->name));
return 0 if ! $self->is_locked;
$self->is_locked(0);
return $self->save;
}
sub expand {
my ($self, $message, $rpl, @args) = @_;
App-SD
view release on metacpan or search on metacpan
lib/App/SD/Replica/gcode.pm view on Meta::CPAN
closed => 'completed',
reported => 'created',
labels => 'tags',
priority => 'priority',
mergedinto => 'merged_into',
blockedon => 'blocked_on',
);
has query => ( isa => 'Str', is => 'rw');
has gcode => ( isa => 'Net::Google::Code', is => 'rw');
App-Sandy
view release on metacpan or search on metacpan
get_av|5.006000|5.003007|p
getc|5.003007||Viu
get_c_backtrace|5.021001||Vi
get_c_backtrace_dump|5.021001||V
get_context|5.006000|5.006000|nu
getc_unlocked|5.003007||Viu
get_cv|5.006000|5.003007|p
get_cvn_flags|5.009005|5.003007|p
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
PERL_MALLOC_WRAP|5.009002|5.009002|Vn
PerlMem_calloc|5.006000||Viu
PerlMem_free|5.005000||Viu
PerlMem_free_lock|5.006000||Viu
PerlMem_get_lock|5.006000||Viu
PerlMem_is_locked|5.006000||Viu
PerlMem_malloc|5.005000||Viu
PERL_MEMORY_DEBUG_HEADER_SIZE|5.019009||Viu
PerlMemParse_calloc|5.006000||Viu
PerlMemParse_free|5.006000||Viu
PerlMemParse_free_lock|5.006000||Viu
PerlMemParse_get_lock|5.006000||Viu
PerlMemParse_is_locked|5.006000||Viu
PerlMemParse_malloc|5.006000||Viu
PerlMemParse_realloc|5.006000||Viu
PerlMem_realloc|5.005000||Viu
PerlMemShared_calloc|5.006000||Viu
PerlMemShared_free|5.006000||Viu
PerlMemShared_free_lock|5.006000||Viu
PerlMemShared_get_lock|5.006000||Viu
PerlMemShared_is_locked|5.006000||Viu
PerlMemShared_malloc|5.006000||Viu
PerlMemShared_realloc|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000|5.006000|n
PERL_MULTICONCAT_HEADER_SIZE|5.027006||Viu
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p
pv_escape|5.009004|5.003007|p
App-ScreensaverUtils
view release on metacpan or search on metacpan
script/deactivate-screensaver view on Meta::CPAN
If screen is not being blank (screensaver is not activated) then nothing
happens. If screen is being blanked (screensaver is activated) then unblank the
screen.
Often the screen is also locked when being blanked. On some screensavers, like
xscreensaver, deactivating won't unlock the screen and user will need to unlock
the screen herself first. Some other screensavers, like GNOME/cinnamon, will
happily unlock the screen automatically.
=head1 OPTIONS
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $Vbot_file = $immodpg->{_Vbot_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $Vbot_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $Vbot;
$format = $var_immodpg->{_format_real};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $Vbot_upper_layer_file = $immodpg->{_Vbot_upper_layer_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $Vbot_upper_layer_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $Vbot_upper_layer;
$format = $var_immodpg->{_format_real};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $VbotNtop_factor_file = $immodpg->{_VbotNtop_factor_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $VbotNtop_factor_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $VbotNtop_factor;
$format = ' 0.0';
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $file = $immodpg->{_VbotNtop_multiply_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $immodpg->{_Vbot_multiplied};
$X[1] = $immodpg->{_Vtop_multiplied};
$format = $var_immodpg->{_format_real};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $Vincrement_file = $immodpg->{_Vincrement_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $Vincrement_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $Vincrement;
$format = $var_immodpg->{_format51f};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $Vtop_file = $immodpg->{_Vtop_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $Vtop_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $Vtop;
$format = $var_immodpg->{_format_real};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $Vtop_lower_layer_file = $immodpg->{_Vtop_lower_layer_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $Vtop_lower_layer_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $Vtop_lower_layer;
$format = $var_immodpg->{_format_real};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $test = $yes;
my $change = $immodpg->{_change_file};
my $outbound = $IMMODPG_INVISIBLE . '/' . $change;
my $outbound_locked = $outbound . '_locked';
my $format = $var_immodpg->{_format_string};
my $count = 0;
my $max_counts = 1000;
for (
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
)
{
# print("1. immodpg,_set_change, in loop count=$count \n");
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
# print("immodpg, _set_change, outbound_locked=$outbound_locked\n");
# print("immodpg, _set_change, IMMODPG_INVISIBLE=$IMMODPG_INVISIBLE\n");
# print("immodpg, _set_change, created empty locked file=$X[0]\n");
# print("immodpg, _set_change, outbound=$outbound\n");
# print("immodpg, _set_change, IMMODPG_INVISIBLE=$IMMODPG_INVISIBLE\n");
# do not overwrite a waiting change (= yes)
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# do not overwrite a waiting change (= yes)
# print("2. immodpg, _set_change, SKIP\n");
# print("immodpg, _set_change,do not overwrite change_file\n");
unlink($outbound_locked);
}
elsif ( $ans eq $no ) {
# overwrite change_file(=no) with no or yes
$X[0] = $yes_or_no;
$files->write_1col_aref( \@X, \$outbound, \$format );
# print("immodpg, _set_change, overwrite change file with $X[0]\n");
unlink($outbound_locked);
# print("3. immodpg, _set_change, delete locked file\n");
# print("4. immodpg, _set_change, yes_or_no=$X[0]\n");
$test = $no;
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
} # test change_file's content
}
else {
# print("immodpg,_set_change, locked change file\n");
$count++; # governor on finding an unlocked change_file
} # if unlocked file is missing and change_file is free
$count++; # governor on checking for a change_file = yes
} # for
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $clip_file = $immodpg->{_clip_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $clip_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $clip;
$format = $var_immodpg->{_format51f};
$files->write_1col_aref( \@X, \$outbound, \$format );
# print("immodpg, _set_clip, output clip = $clip\n");
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $thickness_m_file = $immodpg->{_thickness_m_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $thickness_m_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $thickness_m;
$format = $var_immodpg->{_format51f};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my $thickness_increment_m_file =
$immodpg->{_thickness_increment_m_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $thickness_increment_m_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $thickness_increment_m;
print("thickness_increment_m=$thickness_increment_m\n");
$format = $var_immodpg->{_format51f};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $layer_file = $immodpg->{_layer_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $layer_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
# print("in loop \n");
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $layer;
$format = $var_immodpg->{_format_integer};
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $option_file = $immodpg->{_option_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $option_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
# print("immodpg,_set_option, in loop \n");
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $option;
$format = $var_immodpg->{_format2i};
# print("2.immodpg,_set_option,option:$option\n");
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVbot_minus, same Vbot NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVbot_plus, same Vbot NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
print("immodpg, setVtop_minus, same Vtop NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# print("immodpg, setVtop_plus, VtopEntry=$immodpg->{_VtopEntry}\n");
# print("immodpg, setVtop_plus, Vincrement=$immodpg->{_Vincrement_current}\n");
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVtop_plus, same Vtop NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
print("immodpg, cdp, missing cdp,\n");
}
}
=head2 sub clean_trash
delete remaining locked files
reset default files as well
=cut
sub clean_trash {
my ($self) = @_;
use File::stat;
my $xk = xk->new();
my $files = manage_files_by2->new();
my ( $outbound_locked, $outbound );
my @X;
my $Vbot_file = $immodpg->{_Vbot_file};
my $VbotNtop_factor_file = $immodpg->{_VbotNtop_factor_file};
my $Vbot_upper_layer_file = $immodpg->{_Vbot_upper_layer_file};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# print("immodpg,exit: kill pgxwin_server\n");
$xk->kill_process();
# deleted lock files
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $Vbot_file . '_locked';
unlink($outbound_locked);
$outbound_locked =
$IMMODPG_INVISIBLE . '/' . $VbotNtop_factor_file . '_locked';
unlink($outbound_locked);
$outbound_locked =
$IMMODPG_INVISIBLE . '/' . $Vbot_upper_layer_file . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $Vincrement_file . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $Vtop_file . '_locked';
unlink($outbound_locked);
$outbound_locked =
$IMMODPG_INVISIBLE . '/' . $Vtop_lower_layer_file . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $change_file . '_locked';
# print("immodpg, clean_trash, delete $outbound_locked\n");
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $clip_file . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG . '/' . $immodpg_model . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $layer_file . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $option_file . '_locked';
unlink($outbound_locked);
$outbound_locked = $IMMODPG_INVISIBLE . '/' . $thickness_m_file . '_locked';
unlink($outbound_locked);
$outbound_locked =
$IMMODPG_INVISIBLE . '/' . $thickness_increment_m_file . '_locked';
unlink($outbound_locked);
# reset files to their default options
$outbound = $IMMODPG_INVISIBLE . '/' . $change_file;
unlink($outbound);
my $format = $var_immodpg->{_format_string};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
_fortran_layer( $immodpg->{_layer_default} );
_set_option( $immodpg->{_option_default} );
_set_change( $immodpg->{_change_default} );
# delete empty files (including surviving lock files)
# remove weird, locked files from the current directory
my $CD = `pwd`;
$files->set_directory($CD);
$files->clear_empty_files();
# remove weird lock files from the main directory
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
# print("immodpg, setVbot, same Vbot NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
# print("immodpg, setVbot_upper_layer, same Vbot NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVbotNVtop_lower_layer_minus, same Vbot and Vtop_lower_layer; NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVbotNVtop_lower_layer_plus, same Vbot and Vtop_lower_layer; NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVtopNVbot_upper_layer_minus, same Vtop and Vbot_upper_layer; NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVtopNVbot_upper_layer_plus, same Vtop and Vbot_upper_layer; NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
# print("immodpg, setVincrement, same Vincrement NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
# print("immodpg, setVtop, same Vtop NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
# print("immodpg, setVtop_lower_layer, same Vtop_lower_layer NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVbotNtop_minus, same VbotNtop NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, setVbotNtop_plus, same VbotNtop NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, set_thickness_m_minus, same _thickness_m NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# print("immodpg, set_thickness_m_plus, _thickness_mEntry=$immodpg->{_thickness_mEntry}\n");
# print("immodpg, set_thickness_m_plus, thickness_increment_m=$immodpg->{_thickness_increment_m}\n");
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
#
# print("immodpg, set_thickness_m_plus, same _thickness_m NADA\n");
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $change = $immodpg->{_change_file};
my $test = $yes;
my $outbound = $IMMODPG_INVISIBLE . '/' . $change;
my $outbound_locked = $outbound . '_locked';
my $format = $var_immodpg->{_format_string};
my $count = 0;
my $max_counts = $var_immodpg->{_loop_limit};
for (
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
)
{
# print("1. immodpg,set_change, in loop count=$count \n");
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
# print("immodpg, set_change, outbound_locked=$outbound_locked\n");
# print("immodpg, set_change, IMMODPG_INVISIBLE=$IMMODPG_INVISIBLE\n");
# print("immodpg, set_change, created empty locked file=$X[0]\n");
# print("immodpg, set_change, outbound=$outbound\n");
# print("immodpg, set_change, IMMODPG_INVISIBLE=$IMMODPG_INVISIBLE\n");
# do not overwrite a waiting change (= yes)
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# do not overwrite a waiting change (= yes)
# print("2. immodpg, set_change, SKIP\n");
# print("immodpg, set_change,do not overwrite change_file\n");
unlink($outbound_locked);
}
elsif ( $ans eq $no ) {
# overwrite change_file(=no) with no or yes
$X[0] = $yes_or_no;
$files->write_1col_aref( \@X, \$outbound, \$format );
# print("immodpg, set_change, overwrite change file with $X[0]\n");
unlink($outbound_locked);
# print("3. immodpg, set_change, delete locked file\n");
# print("4. immodpg, set_change, yes_or_no=$X[0]\n");
$test = $no;
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
} # test change_file's content
}
else {
# print("immodpg,_set_change, locked change file\n");
$count++; # governor on finding an unlocked change_file
} # if unlocked file is missing and change_file is free
$count++; # governor on checking for a change_file = yes
} # for
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @X;
my $option_file = $immodpg->{_option_file};
my $test = $no;
my $outbound = $IMMODPG_INVISIBLE . '/' . $option_file;
my $outbound_locked = $outbound . '_locked';
for ( my $i = 0 ; $test eq $no ; $i++ ) {
if ( not( $files->does_file_exist( \$outbound_locked ) ) ) {
my $format = $var_immodpg->{_format_string};
$X[0] = $empty_string;
$files->write_1col_aref( \@X, \$outbound_locked, \$format );
$X[0] = $option;
$format = $var_immodpg->{_format_integer};
# print("immodpg,set_option,option=$option\n");
$files->write_1col_aref( \@X, \$outbound, \$format );
unlink($outbound_locked);
$test = $yes;
} # if
} # for
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
else {
# negative cases are reset by fortran program
# and so eliminate need to read locked files
# while use of locked files helps most of the time
# creation and deletion of locked files in perl are not
# failsafe
# print("immodpg, set_thickness_m, same thickness_m NADA\n");
}
App-SilverSplash
view release on metacpan or search on metacpan
lib/App/SilverSplash/IPTables.pm view on Meta::CPAN
nat => [qw( slOUT )],
);
}
our $Blocked_mark = '0x100';
our $Trusted_mark = '0x200';
our $Paid_mark = '0x400';
our $Ads_mark = '0x500';
sub load_allows {
lib/App/SilverSplash/IPTables.pm view on Meta::CPAN
slAUTads -p tcp -m tcp --dport 5050 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5190 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5222 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5223 -j ACCEPT
slNET -m mark --mark $Blocked_mark/0x700 -j DROP
slNET -m state --state INVALID -j DROP
slNET -p tcp -m tcp --tcp-flags SYN,RST SYN -j TCPMSS --clamp-mss-to-pmtu
slNET -m mark --mark $Trusted_mark/0x700 -j ACCEPT
slNET -m mark --mark $Paid_mark/0x700 -j slAUT
slNET -m mark --mark $Ads_mark/0x700 -j slAUTads
slNET -p icmp -j REJECT --reject-with icmp-port-unreachable
$hosts_accept
$sslhosts_accept
slNET -j DROP
slRTR -m mark --mark $Blocked_mark/0x700 -j DROP
slRTR -m state --state INVALID -j DROP
slRTR -m state --state RELATED,ESTABLISHED -j ACCEPT
slRTR -p tcp -m tcp ! --tcp-option 2 --tcp-flags SYN SYN -j DROP
slRTR -p tcp -m tcp --dport $Perlbal_port -j ACCEPT
slRTR -m mark --mark $Trusted_mark/0x700 -j ACCEPT
App-Slaughter
view release on metacpan or search on metacpan
bin/slaughter view on Meta::CPAN
#
# Lock the file.
#
flock( LOCK, LOCK_EX | LOCK_NB ) or
die "$0 already running - Lock file $lockfile is locked";
#
# The file will be closed when slaughter terminates so although it
# looks like we're leaking a handle here this is intentional.
App-SlideServer
view release on metacpan or search on metacpan
share/public/jquery-3.3.1.min.js view on Meta::CPAN
/*! jQuery v3.3.1 | (c) JS Foundation and other contributors | jquery.org/license */
!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof windo...
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/third-party/Socket.IO-node/support/socket.io-client/lib/vendor/web-socket-js/README.md view on Meta::CPAN
4. If you are NOT using web-socket-ruby or em-websocket as your WebSocket server, you need to place Flash socket policy file on your server. See "Flash socket policy file" section below for details.
5. Check if sample.html bundled with web-socket-js works.
6. Make sure the port used for WebSocket (10081 in example above) is not blocked by your server/client's firewall.
7. Install [debugger version of Flash Player](http://www.adobe.com/support/flashplayer/downloads.html) to see Flash errors.
## Supported environments
App-Sqitch
view release on metacpan or search on metacpan
lib/App/Sqitch/Engine.pm view on Meta::CPAN
is => 'rw',
isa => Num,
default => default_lock_timeout,
);
has _locked => (
is => 'rw',
isa => Bool,
default => 0,
);
lib/App/Sqitch/Engine.pm view on Meta::CPAN
sub lock_destination {
my $self = shift;
# Try to acquire the lock without waiting.
return $self if $self->_locked;
return $self->_locked(1) if $self->try_lock;
# Lock not acquired. Tell the user what's happening.
my $wait = $self->lock_timeout;
$self->sqitch->info(__x(
'Blocked by another instance of Sqitch working on {dest}; waiting {secs} seconds...',
dest => $self->destination,
secs => $wait,
));
# Try waiting for the lock.
return $self->_locked(1) if $self->wait_lock;
# Timed out, so bail.
hurl engine => __x(
'Timed out waiting {secs} seconds for another instance of Sqitch to finish work on {dest}',
dest => $self->destination,
App-Stacktrace
view release on metacpan or search on metacpan
#endif
IV stack_size;
SV *err; /* Error from abnormally terminated thread */
char *err_class; /* Error object's classname if applicable */
#ifndef WIN32
sigset_t initial_sigmask; /* Thread wakes up with signals blocked */
#endif
} ithread;
typedef struct {
/* Structure for 'main' thread
App-Standby
view release on metacpan or search on metacpan
share/res/js/jquery-2.0.1.min.js view on Meta::CPAN
/*! jQuery v2.0.1 | (c) 2005, 2013 jQuery Foundation, Inc. | jquery.org/license
//@ sourceMappingURL=jquery-2.0.1.min.map
*/
(function(e,undefined){var t,n,r=typeof undefined,i=e.location,o=e.document,s=o.documentElement,a=e.jQuery,u=e.$,l={},c=[],f="2.0.1",p=c.concat,h=c.push,d=c.slice,g=c.indexOf,m=l.toString,y=l.hasOwnProperty,v=f.trim,x=function(e,n){return new x.fn.in...
},_queueHooks:function(e,t){var n=t+"queueHooks";return H.get(e,n)||H.access(e,n,{empty:x.Callbacks("once memory").add(function(){H.remove(e,[t+"queue",n])})})}}),x.fn.extend({queue:function(e,t){var n=2;return"string"!=typeof e&&(t=e,e="fx",n--),n>a...
}});var Xt,Ut,Yt=x.now(),Vt=/\?/,Gt=/#.*$/,Jt=/([?&])_=[^&]*/,Qt=/^(.*?):[ \t]*([^\r\n]*)$/gm,Kt=/^(?:about|app|app-storage|.+-extension|file|res|widget):$/,Zt=/^(?:GET|HEAD)$/,en=/^\/\//,tn=/^([\w.+-]+:)(?:\/\/([^\/?#:]*)(?::(\d+)|)|)/,nn=x.fn.load,...
App-Templer
view release on metacpan or search on metacpan
examples/complex/input/jquery.min.js view on Meta::CPAN
/*! jQuery v1.8.3 jquery.com | jquery.org/license */
(function(e,t){function _(e){var t=M[e]={};return v.each(e.split(y),function(e,n){t[n]=!0}),t}function H(e,n,r){if(r===t&&e.nodeType===1){var i="data-"+n.replace(P,"-$1").toLowerCase();r=e.getAttribute(i);if(typeof r=="string"){try{r=r==="true"?!0:r=...
App-WordPressTools
view release on metacpan or search on metacpan
script/wp-tools view on Meta::CPAN
}
### check defunct process count
if ($args->{max_dproc} && !$args->{force}) {
#my $dproc = `ps -o state | grep D | wc -l`;
my $dproc = `awk '/procs_blocked/ {print \$2}' /proc/stat`;
if ($dproc > $args->{'max_dproc'}) {
die 'Process queue full, please try again later.';
}
}
App-XScreenSaver-DBus
view release on metacpan or search on metacpan
lib/App/XScreenSaver/DBus/Logind.pm view on Meta::CPAN
sub _going_to_sleep($self,$before) {
if ($before) {
$self->log->debug('locking');
$self->_xscreensaver_command('-suspend');
$self->log->debug('locked');
$self->_set_inhibit_fd(undef);
}
else {
$self->log->debug('woken up');
$self->_xscreensaver_command('-deactivate');
App-Yabsm
view release on metacpan or search on metacpan
lib/App/Yabsm/Backup/Generic.pm view on Meta::CPAN
backup_exists_or_die($backup, $config_ref);
is_backup_type_or_die($backup_type);
if (my $existing_lock_file = bootstrap_lock_file($backup, $backup_type, $config_ref)) {
die "yabsm: error: ${backup_type}_backup '$backup' is already locked out of performing a bootstrap. This was determined by the existence of '$existing_lock_file'\n";
}
# The file will be deleted when $tmp_fh is destroyed.
my $tmp_fh = File::Temp->new(
TEMPLATE => "yabsm-${backup_type}_backup_${backup}_BOOTSTRAP-LOCKXXXX",
App-bsky
view release on metacpan or search on metacpan
lib/App/bsky.pm view on Meta::CPAN
$self->say( 'Description: %s', $profile->description // '' );
$self->say( 'Follows: %d', $profile->followsCount );
$self->say( 'Followers: %d', $profile->followersCount );
$self->say( 'Avatar: %s', $profile->avatar ) if $profile->avatar;
$self->say( 'Banner: %s', $profile->banner ) if $profile->banner;
$self->say('Blocks you: yes') if $profile->viewer->blockedBy // ();
$self->say('Following: yes') if $profile->viewer->following // ();
$self->say('Muted: yes') if $profile->viewer->muted // ();
}
1;
}
App-diceware
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
64241 unlisted
64242 unlit
64243 unlivable
64244 unloaded
64245 unloader
64246 unlocked
64251 unlocking
64252 unlovable
64253 unloved
64254 unlovely
64255 unloving
App-gh
view release on metacpan or search on metacpan
lib/App/gh/Git.pm view on Meta::CPAN
associated temp file has not been created this session or was closed, it is
created, cached, and set for autoflush and binmode.
Internally locks the file mapped to C<NAME>. This lock must be released with
C<temp_release()> when the temp file is no longer needed. Subsequent attempts
to retrieve temporary files mapped to the same C<NAME> while still locked will
cause an error. This locking mechanism provides a weak guarantee and is not
threadsafe. It does provide some error checking to help prevent temp file refs
writing over one another.
In general, the L<File::Handle> returned should not be closed by consumers as
lib/App/gh/Git.pm view on Meta::CPAN
=cut
sub temp_acquire {
my $temp_fd = _temp_cache(@_);
$TEMP_FILES{$temp_fd}{locked} = 1;
$temp_fd;
}
=item temp_release ( NAME )
=item temp_release ( FILEHANDLE )
Releases a lock acquired through C<temp_acquire()>. Can be called either with
the C<NAME> mapping used when acquiring the temp file or with the C<FILEHANDLE>
referencing a locked temp file.
Warns if an attempt is made to release a file that is not locked.
The temp file will be truncated before being released. This can help to reduce
disk I/O where the system is smart enough to detect the truncation while data
is in the output buffers. Beware that after the temp file is released and
truncated, any operations on that file may fail miserably until it is
lib/App/gh/Git.pm view on Meta::CPAN
my ($self, $temp_fd, $trunc) = _maybe_self(@_);
if (exists $TEMP_FILEMAP{$temp_fd}) {
$temp_fd = $TEMP_FILES{$temp_fd};
}
unless ($TEMP_FILES{$temp_fd}{locked}) {
carp "Attempt to release temp file '",
$temp_fd, "' that has not been locked";
}
temp_reset($temp_fd) if $trunc and $temp_fd->opened;
$TEMP_FILES{$temp_fd}{locked} = 0;
undef;
}
sub _temp_cache {
my ($self, $name) = _maybe_self(@_);
_verify_require();
my $temp_fd = \$TEMP_FILEMAP{$name};
if (defined $$temp_fd and $$temp_fd->opened) {
if ($TEMP_FILES{$$temp_fd}{locked}) {
throw Error::Simple("Temp file with moniker '" .
$name . "' already in use");
}
} else {
if (defined $$temp_fd) {
App-httpstatus-more
view release on metacpan or search on metacpan
script/httpstatus view on Meta::CPAN
430 => 'Request Header Fields Too Large (Shopify)', # unofficial
431 => 'Request Header Fields Too Large',
440 => 'Login Time-out (IIS)', # unofficial
444 => 'No Response (nginx)', # unofficial
449 => 'Retry with (IIS)', # unofficial
450 => 'Blocked by Windows Parental Controls (Microsoft)', # unofficial
451 => [
'Unavailable For Legal Reasons', # RFC 7725
'Redirect (IIS)', # unofficial
],
460 => '(AWS Elastic Load Balancer)', # unofficial
( run in 0.982 second using v1.01-cache-2.11-cpan-49f99fa48dc )