view release on metacpan or search on metacpan
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBLEN_LOCK|5.033005||Viu
MBLEN_UNLOCK|5.033005||Viu
MBOL|5.003007||Viu
MBOL_t8_p8|5.033003||Viu
MBOL_t8_pb|5.033003||Viu
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
view release on metacpan or search on metacpan
lib/Pod/Abstract/Tree.pm view on Meta::CPAN
=head2 unshift
Remove the first node from the node list and return it.
Unshift takes linear time - it has to relocate every other element in
id_map so that they stay in line.
=cut
sub unshift {
view release on metacpan or search on metacpan
lib/Pod/L10N/Html/Util.pm view on Meta::CPAN
B<Note:> While these functions are importable on request from
F<Pod::Html::Util>, they are specifically intended for use within (a) the
F<Pod-Html> distribution (modules and test programs) shipped as part of the
Perl 5 core and (b) other parts of the core such as the F<installhtml>
program. These functions may be modified or relocated within the core
distribution -- or removed entirely therefrom -- as the core's needs evolve.
Hence, you should not rely on these functions in situations other than those
just described.
=cut
view release on metacpan or search on metacpan
+ CPAN#52086: mismatch between distro and module version:
same as above
+ CPAN#55121: correction for Pod::Find and t/pod/find.t on VMS
+ CPAN#47473: podchecker on L<> url with alt text
... causes an error in Pod::Checker now
+ CPAN#57954: Pod::Usage does not find perldoc when perl is relocatable
... use $Config{scriptdirexp} instead of scriptdir
+ CPAN#61223: podchecker notice missing blank line before command
implemented with more tests in poderrs.t and self test of all *.pms
+ CPAN#66614: parse of no final newline vs perl -w
... a rare case, but fixed nevertheless
view release on metacpan or search on metacpan
lib/Pod/Server.pm view on Meta::CPAN
How to embed Pod::Server into a Catalyst app:
use Pod::Server 'On::Catalyst';
Pod::Server->init;
Pod::Server->relocate('/pod');
$Pod::Simple::HTML::Perldoc_URL_Prefix = '/pod/';
sub pod : Local { Pod::Server->catalyze($_[1]) }
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/Poet/Manual/Intro.pod view on Meta::CPAN
=back
=head2 Relocatable environments
Ideally your environment will be I<relocatable> -- if you move your environment
to a different root, or checkout a second copy of it in a different root,
things should just work.
To achieve this you should never refer to exact environment directory paths in
your code; instead you'll call Poet methods that return them. e.g. instead of
view release on metacpan or search on metacpan
lib/Pragmatic.pm view on Meta::CPAN
return $package->export_to_level (1, $package, @_)
if $package eq __PACKAGE__;
my $warn = sub (;$) {
require Carp;
local $Carp::CarpLevel = 2; # relocate to calling package
Carp::carp (@_);
};
my $die = sub (;$) {
require Carp;
local $Carp::CarpLevel = 2; # relocate to calling package
Carp::croak (@_);
};
my @imports = grep /^[^-]/, @_;
my @pragmata = map { substr($_, 1); } grep /^-/, @_;
view release on metacpan or search on metacpan
Prima/Docks.pm view on Meta::CPAN
$self-> {sessions}-> {$dm} = $sid;
} else {
$sid = $self-> {sessions}-> {$dm};
}
return unless $sid;
my $relocationCount;
AGAIN:
#print "{$dm:@$pos:";
my @retval;
my @rc = $dm-> query( $sid, $pos ? @$pos : ());
#print "(@rc)\n";
Prima/Docks.pm view on Meta::CPAN
$newpos[$a] = $lb ? ( $pp[$a] - $pdist) : ( $pp[$a] + $pdist - $sz1);
}
$newpos[$b] = $newpos[$a] + $sz1;
}
# asking for the new position for the shape, if $dm can accept that...
if ( 2 >= $relocationCount++) {
#print "case1: @newpos\n";
$pos = \@newpos;
goto AGAIN;
}
} elsif ( $self-> {drag} && ( # have to change the position
Prima/Docks.pm view on Meta::CPAN
$newpos[$a] = $rc[$a] if $newpos[$a] < $rc[$a];
$newpos[$a] = $rc[$b] if $newpos[$a] > $rc[$b];
}
goto EXIT if ( $sd < abs($pp[0] - $newpos[0])) || ( $sd < abs($pp[1] - $newpos[1]));
# asking for the new position, and maybe new shape...
if ( 2 >= $relocationCount++) {
#print "case2: @rc\n";
$pos = [@rc];
goto AGAIN;
}
}
Prima/Docks.pm view on Meta::CPAN
flag.
If it is 1, RECT is an array with the coordinates of the shuttle rectangle
before the drag has started; ANCHOR_X and ANCHOR_Y are coordinates of the
aperture point where the mouse event occurred that has initiated the drag.
Depending on how the drag session ended, the shuttle can be relocated to
another dock, undocked, or left intact. Also, C<Dock>, C<Undock>, or
C<FailDock> notifications can be triggered.
If STATE is 0, RECT, ANCHOR_X ,and ANCHOR_Y parameters are not used.
view release on metacpan or search on metacpan
malloced_size|||n
malloc||5.007002|n
markstack_grow||5.021001|
matcher_matches_sv|||
maybe_multimagic_gv|||
mayberelocate|||
measure_struct|||
memEQs|5.009005||p
memEQ|5.004000||p
memNEs|5.009005||p
memNE|5.004000||p
op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_relocate_sv|||
op_scope||5.013007|
op_sibling_splice||5.021002|n
op_std_init|||
op_unscope|||
open_script|||
view release on metacpan or search on metacpan
os/Cygwin.h view on Meta::CPAN
UWAIT,
};
/* strings, to make sure they get placed in read only memory,
* ditto for pointers to them and so we avoid relocations */
static const char strings[] =
{
/* process state */
"sleep\0"
"run\0"
view release on metacpan or search on metacpan
lib/ProjectBuilder/Env.pm view on Meta::CPAN
-----------------
| | |
rpm deb pbfilter
(*) By default, if no relocation in .pbrc, dev dir is taken in the maint pbdefdir (when appropriate)
Names under a pbproj and the corresponding pbconf should be similar
=back
=cut
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBLEN_LOCK|5.033005||Viu
MBLEN_UNLOCK|5.033005||Viu
MBOL|5.003007||Viu
MBOL_t8|5.035004||Viu
MBOL_t8_p8|5.033003||Viu
easyxs/ppport.h view on Meta::CPAN
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
view release on metacpan or search on metacpan
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBLEN_LOCK|5.033005||Viu
MBLEN_UNLOCK|5.033005||Viu
MBOL|5.003007||Viu
MBOL_t8|5.035004||Viu
MBOL_t8_p8|5.033003||Viu
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
view release on metacpan or search on metacpan
lib/Pushmi.pm view on Meta::CPAN
=back
For your existing Subversion checkouts, you may now switch to the slave
using this command:
svn switch --relocate http://master.repository/svn http://slave.repository/svn
From there, you can use normal C<svn> commands to work with your checkout.
=item Setup auto-verify
view release on metacpan or search on metacpan
LINE:foreach $line (@output)
{
if ($line =~ /(Name+).*: ([(\/\w].*.[\w\/)]) .*. (Relocations+).*: ([(\/\w].*.[\w\/)])/)
{
$$ref{'name'} = $2;
$$ref{'relocations'} =$4;
next LINE;
}
if ($line =~ /(Version+).*: ([(\/\w].*.[\w\/)]) .*. (Vendor+).*: ([(\/\w].*.[\w\/)])/)
{
$$ref{'version'} = $2;
view release on metacpan or search on metacpan
t/002_query.t view on Meta::CPAN
License : (GPL+ or Artistic) and (GPLv2+ or Artistic) and Copyright Only and MIT and Public Domain and UCD
Signature : RSA/SHA256, Wed 03 Feb 2021 11:48:28 AM EST, Key ID 24c6a8a7f4a80eb5
Source RPM : perl-5.16.3-299.el7_9.src.rpm
Build Date : Tue 02 Feb 2021 11:36:12 AM EST
Build Host : x86-02.bsys.centos.org
Relocations : (not relocatable)
Packager : CentOS BuildSystem <http://bugs.centos.org>
Vendor : CentOS
URL : http://www.perl.org/
Summary : Practical Extraction and Report Language
Description :
view release on metacpan or search on metacpan
lib/RPM/Specfile.pm view on Meta::CPAN
$spec->pre("echo Running %%pre...\nexit 0");
=item prefix([$index, $prefix])
Returns a list of prefix/relocation entries. If $index and $prefix are provided it will
set the entry referenced by $index to $prefix.
@prefixes = $spec->prefix();
=item preun([$scriptlet])
lib/RPM/Specfile.pm view on Meta::CPAN
Note, adding a patch implicitly adds entries to the %prep script.
=item push_prefix([$prefix])
Push a prefix onto to the list of valid relocations.
$spec->clear_prefix('/usr/local/mypkg');
=item push_provide([$entry])
view release on metacpan or search on metacpan
lib/RPM2.pm view on Meta::CPAN
#
# Get filename
$fn = $h->filename();
# XXX: Need to add relocations at some point, but I think we live
# without this for now (until I need it (-;).
return RPM2::C::Transaction::_add_install($self->{'c_transaction'},
$h->{'c_header'}, $fn, $upgrade)
}
lib/RPM2.pm view on Meta::CPAN
#
# Get record offset
$db_offset = $h->offset();
return 0 if(!defined($db_offset));
# XXX: Need to add relocations at some point, but I think we live
# without this for now (until I need it (-;).
return RPM2::C::Transaction::_add_delete($self->{'c_transaction'},
$h->{'c_header'}, $db_offset)
}
view release on metacpan or search on metacpan
lib/RPM4.pm view on Meta::CPAN
$p->{pb} eq "PKG_INSTALLED" and do {
push @ret, N("package %s is allready installed", $p->{pkg});
next;
};
$p->{pb} eq "BADRELOCATE" and do {
push @ret, N("path %s in package %s is not relocatable", $p->{path}, $p->{pkg});
next;
};
$p->{pb} eq "NEW_FILE_CONFLICT" and do {
push @ret, N("file %s conflicts between attempted installs of %s and %s", $p->{file}, $p->{pkg}, $p->{pkg2});
next;
view release on metacpan or search on metacpan
script/development/compile_manual.sh view on Meta::CPAN
rm -f /tmp/gcc.out
rm -f $OUTPUT_FILE
# [[[ ASSEMBLE, OUTPUT OBJECT FILE ]]]
# 2.1M $OUTPUT_FILE.o: ELF 64-bit LSB relocatable, x86-64, version 1 (SYSV), not stripped
#g++ -c -D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fstack-protector -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -xc++ -I"/home/wbraswell/austin_perl_mongers/rperl/rperl-latest" -I"/home/wbraswell/aust...
# [[[ ARCHIVE, OUTPUT ARCHIVE FILE ]]]
# 2.1M $OUTPUT_FILE.a: current ar archive
#ar -cvq $OUTPUT_FILE.a $OUTPUT_FILE.o
view release on metacpan or search on metacpan
malloced_size|||n
malloc||5.007002|n
markstack_grow||5.021001|
matcher_matches_sv|||
maybe_multimagic_gv|||
mayberelocate|||
measure_struct|||
memEQs|5.009005||p
memEQ|5.004000||p
memNEs|5.009005||p
memNE|5.004000||p
op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_relocate_sv|||
op_scope||5.013007|
op_sibling_splice||5.021002|n
op_std_init|||
op_unscope|||
open_script|||
view release on metacpan or search on metacpan
xt/00-mason-syntax.t view on Meta::CPAN
return if m{/\.[^/]+\.sw[op]$}; # vim swap files
return unless -f $_;
local ($@);
ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@");
},
}, RT::Test::get_relocatable_dir('../html'));
use HTML::Mason;
use HTML::Mason::Compiler;
use HTML::Mason::Compiler::ToObject;
BEGIN { require RT::Test; }
view release on metacpan or search on metacpan
xt/00-mason-syntax.t view on Meta::CPAN
return if m{/\.[^/]+\.sw[op]$}; # vim swap files
return unless -f $_;
local ($@);
ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@");
},
}, RT::Test::get_relocatable_dir('../html'));
use HTML::Mason;
use HTML::Mason::Compiler;
use HTML::Mason::Compiler::ToObject;
BEGIN { require RT::Test; }
view release on metacpan or search on metacpan
xt/initialdata.t view on Meta::CPAN
use strict;
use warnings;
use RT::Extension::ConditionalCustomFields::Test tests => 19;
my $firstinitialdata = RT::Test::get_relocatable_file("firstcf" => "data");
my ($rv, $msg) = RT->DatabaseHandle->InsertData( $firstinitialdata, undef, disconnect_after => 0 );
ok($rv, "Inserted test data from $firstinitialdata: $msg");
my $initialdata = RT::Test::get_relocatable_file("initialdata" => "data");
($rv, $msg) = RT->DatabaseHandle->InsertData( $initialdata, undef, disconnect_after => 0 );
ok($rv, "Inserted test data from $initialdata: $msg");
my $attributes = RT::Attributes->new(RT->SystemUser);
$attributes->Limit(FIELD => 'Name', VALUE => 'ConditionedBy');
view release on metacpan or search on metacpan
xt/00-mason-syntax.t view on Meta::CPAN
return if m{/\.[^/]+\.sw[op]$}; # vim swap files
return unless -f $_;
local ($@);
ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@");
},
}, RT::Test::get_relocatable_dir('../html'));
use HTML::Mason;
use HTML::Mason::Compiler;
use HTML::Mason::Compiler::ToObject;
BEGIN { require RT::Test; }
view release on metacpan or search on metacpan
xt/00-mason-syntax.t view on Meta::CPAN
return if m{/\.[^/]+\.sw[op]$}; # vim swap files
return unless -f $_;
local ($@);
ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@");
},
}, RT::Test::get_relocatable_dir('../html'));
use HTML::Mason;
use HTML::Mason::Compiler;
use HTML::Mason::Compiler::ToObject;
BEGIN { require RT::Test; }
view release on metacpan or search on metacpan
use warnings;
use RT::Extension::InlineAudioVideoAttachments::Test tests => 18;
my $audio_name = 'des_armes.mp3';
my $audio_file = RT::Test::get_relocatable_file($audio_name, 'data');
my ($baseurl, $m) = RT::Test->started_ok;
ok $m->login, 'logged in';
my $queue = RT::Queue->new(RT->Nobody);
view release on metacpan or search on metacpan
xt/attachments.t view on Meta::CPAN
my $ticket = RT::Ticket->new($user);
$ticket->Create(Queue => 'General', Subject => 'hello world');
my $ticket_id = $ticket->id;
my $image_name = 'image.png';
my $image_path = RT::Test::get_relocatable_file($image_name, 'data');
my $image_content;
open my $fh, '<', $image_path or die "Cannot read $image_path: $!\n";
{
local $/;
$image_content = <$fh>;