Result:
found more than 949 distributions - search limited to the first 2001 files matching your query
( run in 1.964 )
PDL-IO-Matlab
view release on metacpan or search on metacpan
matio-1.5.0/config/libtool.m4 view on Meta::CPAN
if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
cat <<_LT_EOF > conftest.$ac_ext
/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
#if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE)
/* DATA imports from DLLs on WIN32 con't be const, because runtime
relocations are performed -- see ld's documentation on pseudo-relocs. */
# define LT@&t@_DLSYM_CONST
#elif defined(__osf__)
/* This system does not cope well with relocations in const data. */
# define LT@&t@_DLSYM_CONST
#else
# define LT@&t@_DLSYM_CONST const
#endif
matio-1.5.0/config/libtool.m4 view on Meta::CPAN
# The "-static" flag exists, but is broken.
_LT_TAGVAR(lt_prog_compiler_static, $1)=
;;
interix[[3-9]]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
sysv4*MP*)
if test -d /usr/nec; then
_LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
fi
matio-1.5.0/config/libtool.m4 view on Meta::CPAN
esac
;;
interix[[3-9]]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
msdosdjgpp*)
# Just because we use GCC doesn't mean we suddenly get shared libraries
# on systems that don't support them.
matio-1.5.0/config/libtool.m4 view on Meta::CPAN
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,...
matio-1.5.0/config/libtool.m4 view on Meta::CPAN
DIR into the resulting binary])
_LT_TAGDECL([], [hardcode_direct_absolute], [0],
[Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
DIR into the resulting binary and the resulting library dependency is
"absolute", i.e impossible to change by setting ${shlibpath_var} if the
library is relocated])
_LT_TAGDECL([], [hardcode_minus_L], [0],
[Set to "yes" if using the -LDIR flag during linking hardcodes DIR
into the resulting binary])
_LT_TAGDECL([], [hardcode_shlibpath_var], [0],
[Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
matio-1.5.0/config/libtool.m4 view on Meta::CPAN
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr...
PDLA-Core
view release on metacpan or search on metacpan
Doc/Doc/Perldl.pm view on Meta::CPAN
my $m = shift @match;
my $Ref = $m->[1]{Ref};
if ( $Ref =~ /^(Module|Manual|Script): / ) {
# We've got a file name and we have to open it. With the relocatable db, we have to reconstitute the absolute pathname.
my $relfile = $m->[1]{File};
my $absfile = undef;
my @scnd = @{$PDLA::onlinedoc->{Scanned}};
for my $dbf(@scnd){
$dbf =~ s:\/[^\/]*$::; # Trim file name off the end of the database file to get just the directory
PDLA-Rest
view release on metacpan or search on metacpan
2.019105 2019-04-28
- zap (lots of) unneeded deps
2.019104 2019-04-28
- rename Lib to Libtmp for windows reasons
- relocate tests
- zap PDLA::Transform::Proj4 and PDLA::GIS::Proj as now separate distro - thanks @shawnlaffan
2.019103 2019-04-27
- zap make-targets that are only relevant for core - thanks @wlmb for report
- various tests now try, not use %PDLA::Config
PDLA
view release on metacpan or search on metacpan
Doc/Doc/Perldl.pm view on Meta::CPAN
my $m = shift @match;
my $Ref = $m->[1]{Ref};
if ( $Ref =~ /^(Module|Manual|Script): / ) {
# We've got a file name and we have to open it. With the relocatable db, we have to reconstitute the absolute pathname.
my $relfile = $m->[1]{File};
my $absfile = undef;
for my $dbf(@{$PDLA::onlinedoc->{Scanned}}) {
$dbf =~ s:\/[^\/]*$::; # Trim file name off the end of the database file to get just the directory
$dbf .= "/$relfile";
PLDelphi
view release on metacpan or search on metacpan
basiclib/DynaLoader.pm-txt view on Meta::CPAN
This unloading is usually necessary when embedding a shared-object perl (e.g.
one configured with -Duseshrplib) within a larger application, and the perl
interpreter is created and destroyed several times within the lifetime of the
application. In this case it is possible that the system dynamic linker will
unload and then subsequently reload the shared libperl without relocating any
references to it from any files DynaLoaded by the previous incarnation of the
interpreter. As a result, any shared objects opened by DynaLoader may point to
a now invalid 'ghost' of the libperl shared object, causing apparently random
memory corruption and crashes. This behaviour is most commonly seen when using
Apache and mod_perl built with the APXS mechanism.
PLJava
view release on metacpan or search on metacpan
basiclib/DynaLoader.pm-txt view on Meta::CPAN
This unloading is usually necessary when embedding a shared-object perl (e.g.
one configured with -Duseshrplib) within a larger application, and the perl
interpreter is created and destroyed several times within the lifetime of the
application. In this case it is possible that the system dynamic linker will
unload and then subsequently reload the shared libperl without relocating any
references to it from any files DynaLoaded by the previous incarnation of the
interpreter. As a result, any shared objects opened by DynaLoader may point to
a now invalid 'ghost' of the libperl shared object, causing apparently random
memory corruption and crashes. This behaviour is most commonly seen when using
Apache and mod_perl built with the APXS mechanism.
POE-Component-IRC
view release on metacpan or search on metacpan
5.10 Tue Oct 24 18:02:46 BST 2006
- ::State 'irc_kick' event has ARG4 which is the full nick!user@host
of the kicked person. Suggested by helios.
5.09 Tue Oct 24 14:48:07 BST 2006
- Forgot a test with the Test::Plugin relocation. Damnit.
- Reinstated ::Test::Plugin for the PlugMan tests.
5.08 Mon Oct 23 12:35:04 BST 2006
- Remove ::Test::Plugin and relocated code to the actual test.
- Removed the optional debug in Pipeline. If there are errors
you'll see them now.
- New plugin tests, testing running POE sessions in plugins and
dying in PCI_register().
- Deprecated 1_new.t test by removing it.
POE-Declare-HTTP-Online
view release on metacpan or search on metacpan
lib/POE/Declare/HTTP/Online.pm view on Meta::CPAN
}
unless ( $response->is_redirect ) {
return 0;
}
# Determine the location we are relocating to
my $request = $response->request;
my $location = $response->header('Location') or return 0;
my $uri = $HTTP::URI_CLASS->new($location);
unless ( Params::Util::_INSTANCE($uri, 'URI') and $uri->can('host') ) {
return 0;
POE
view release on metacpan or search on metacpan
lib/POE/Kernel.pm view on Meta::CPAN
map { pack "N", $_ }
(monotime(), $$, ++$kr_id_seq)
);
if (defined $old_id) {
$self->_data_sig_relocate_kernel_id($old_id, $new_id);
$self->_data_ses_relocate_kernel_id($old_id, $new_id);
$self->_data_sid_relocate_kernel_id($old_id, $new_id);
$self->_data_handle_relocate_kernel_id($old_id, $new_id);
$self->_data_ev_relocate_kernel_id($old_id, $new_id);
$self->_data_alias_relocate_kernel_id($old_id, $new_id);
}
}
sub ID { $poe_kernel->[KR_ID] }
POSIX-2008
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
POSIX-RT-Signal
view release on metacpan or search on metacpan
lib/POSIX/RT/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
lib/POSIX/RT/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
POSIX-RT-Timer
view release on metacpan or search on metacpan
lib/POSIX/RT/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
lib/POSIX/RT/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
PPI-XS
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|||
PPM
view release on metacpan or search on metacpan
o A few other annoying bugs have been fixed (e.g. a header is no longer
being displayed unless `search' actually returned some results).
Version 1.1.1 Oct 31, 1999
o Added ability to relocate a Unix module (RelocPerl.pm)
o ppm.pl gets installed as 'ppm' on Unix platforms
Version 1.1.2 Nov 14, 1999
o Fixed a bug where .packlist would get created as a directory when
Package-Prototype
view release on metacpan or search on metacpan
lib/Package/ppport.h view on Meta::CPAN
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
lib/Package/ppport.h view on Meta::CPAN
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|||
Package-Stash-XS
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
Padre
view release on metacpan or search on metacpan
lib/Padre/Cache.pm view on Meta::CPAN
By providing this caching in a neutral location that is not directly bound
to the user interface objects, the cached data can survive destruction and
recreation of those interface objects.
This is particularly valuable for situations such as a shift in the active
language or the relocation of a tool that would result in interface objects
being rebuilt.
Cache data is stored in a "Stash", which is a C<HASH> reference containing
arbitrary content, and is keyed off a project or document.
Panda-NSS
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|||
Panda-XS
view release on metacpan or search on metacpan
src/xs/ppport.h view on Meta::CPAN
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
src/xs/ppport.h view on Meta::CPAN
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|||
Parallel-Pvm
view release on metacpan or search on metacpan
Spawn Siblings:
pvm_siblings()
Missing:
Tests for those new functions
Still contains runtime text relocations, but couldn't find any info on this.
Documentation for new functions in Pvm.pm missing
1.3.0 is a completely user-contributed release!
-----------------------------------------------
Params-Util
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
MBOL|5.003007||Viu
MDEREF_ACTION_MASK|5.021007||Viu
MDEREF_AV_gvav_aelem|5.021007||Viu
MDEREF_AV_gvsv_vivify_rv2av_aelem|5.021007||Viu
MDEREF_AV_padav_aelem|5.021007||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
Params-Validate
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
Parser-GraphQL-XS
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_null||5.007002|
op_parent|||n
op_prepend_elem||5.013006|
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_relocate_sv|||
op_sibling_splice||5.021002|n
op_std_init|||
open_script|||
openn_cleanup|||
openn_setup|||
PathTools
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_null||5.007002|
op_parent|||n
op_prepend_elem||5.013006|
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_relocate_sv|||
op_sibling_splice||5.021002|n
op_std_init|||
open_script|||
openn_cleanup|||
openn_setup|||
Paws
view release on metacpan or search on metacpan
lib/Paws/MediaConvert/F4vSettings.pm view on Meta::CPAN
=head1 ATTRIBUTES
=head2 MoovPlacement => Str
If set to PROGRESSIVE_DOWNLOAD, the MOOV atom is relocated to the
beginning of the archive as required for progressive downloading.
Otherwise it is placed normally at the end.
Pcore
view release on metacpan or search on metacpan
lib/Pcore/Dist/Build/Temp.pm view on Meta::CPAN
for my $dir (qw[bin lib share t xt]) {
$tree->add_dir( "$self->{dist}->{root}/$dir", $dir );
}
# relocate files, apply cpan_manifest_skip
my $cpan_manifest_skip = $self->{dist}->cfg->{cpan} && $self->{dist}->cfg->{cpan_manifest_skip} && $self->{dist}->cfg->{cpan_manifest_skip}->@* ? $self->{dist}->cfg->{cpan_manifest_skip} : undef;
for my $file ( values $tree->{files}->%* ) {
if ($cpan_manifest_skip) {
my $skipped;
lib/Pcore/Dist/Build/Temp.pm view on Meta::CPAN
next if $skipped;
}
if ( $file->{path} =~ m[\Abin/(.+)\z]sm ) {
# relocate scripts from the /bin/ to /script/
my $name = $1;
if ( $file->{path} !~ m[[.].+\z]sm ) { # no extension
$file->move("script/$name");
}
lib/Pcore/Dist/Build/Temp.pm view on Meta::CPAN
# olny *.t files are allowed in /t/ dir
$file->remove;
}
elsif ( $file->{path} =~ m[\Axt/(author|release|smoke)/(.+)\z]sm ) {
# patch /xt/*/.t files and relocate to the /t/ dir
my $test = $1;
my $name = $2;
# add common header to /xt/*.t file
Perl-Configure
view release on metacpan or search on metacpan
lib/Perl/Configure.pm view on Meta::CPAN
| | layer? |
| prefix | Installation prefix to use? |
| previous-keep | Keep the previous value |
| random-func | Use which function to |
| | generate random numbers? |
| relocatable-inc | Use relocatable @INC? |
| setuid-emu | Do you want to do |
| | setuid/setgid emulation? |
| setuid-secure | Does your kernel have |
| | *secure* setuid scripts? |
| shell-escape | Press return or use a shell |
Perl-Dist-Strawberry
view release on metacpan or search on metacpan
lib/Perl/Dist/Strawberry/Step/CreateRelocationFile.pm view on Meta::CPAN
sub run {
my $self = shift;
if ($self->{config}->{reloc1_in} && $self->{config}->{reloc1_out}) {
my $in1 = $self->boss->resolve_name($self->{config}->{reloc1_in});
my $out1 = $self->boss->resolve_name($self->{config}->{reloc1_out});
$self->_make_relocation_file1($in1, $out1); # .packlist + *.bat
}
if ($self->{config}->{reloc2_in} && $self->{config}->{reloc2_out}) {
my $in2 = $self->boss->resolve_name($self->{config}->{reloc2_in});
my $out2 = $self->boss->resolve_name($self->{config}->{reloc2_out});
$self->_make_relocation_file2($in2, $out2); # win32/*.url
}
if ($self->{config}->{reloc_in} && $self->{config}->{reloc_out}) {
my $in = $self->boss->resolve_name($self->{config}->{reloc_in});
my $out = $self->boss->resolve_name($self->{config}->{reloc_out});
$self->_make_relocation($in, $out); # all in one go
}
}
sub _make_relocation {
my ($self, $file_in, $file_out) = @_;
$self->boss->message(2, "gonna make reloc '$file_out'");
# Find all the .packlist files.
lib/Perl/Dist/Strawberry/Step/CreateRelocationFile.pm view on Meta::CPAN
# Find all the .url files in win32 subdir
my @url_files_list = File::Find::Rule->file()->name('*.url')->relative()->in( catdir($self->global->{image_dir}, 'win32') );
my %url_files = map { s{/}{\\}msg; "win32\\$_" => 1 } @url_files_list;
# Print the first line of the relocation file.
my $file_out_handle;
open $file_out_handle, '>', $file_out or die "open fail";
print {$file_out_handle} $self->global->{image_dir}, "\\\n";
# Read the source file, writing out the files that actually exist.
lib/Perl/Dist/Strawberry/Step/CreateRelocationFile.pm view on Meta::CPAN
# Print out the rest of the .packlist files.
foreach my $pl ( sort { $a cmp $b } keys %packlists ) {
print {$file_out_handle} "$pl:backslash\n";
}
# Print out the batch files that need relocated.
my $batch_contents;
#XXX-FIXME this was original: my $match_string = q(eval [ ] 'exec [ ] ) . quotemeta catfile($self->global->{image_dir}, qw(perl bin perl.exe));
my $match_string = quotemeta catfile($self->global->{image_dir}, qw(perl bin perl.exe));
foreach my $batch_file ( sort { $a cmp $b } keys %batch_files ) {
#$self->boss->message(3, "Checking to see if '$batch_file' needs relocated");
$batch_contents = read_file( catfile($self->global->{image_dir}, $batch_file) );
print {$file_out_handle} "$batch_file:backslash\n" if $batch_contents =~ m/$match_string/msgx;
}
# Finish up by closing the handle.
lib/Perl/Dist/Strawberry/Step/CreateRelocationFile.pm view on Meta::CPAN
return 1;
}
#XXX-FIXME the rest is just for old MSI generation (will be removed in the next major release)
sub _make_relocation_file2 {
my ($self, $file_in, $file_out) = @_;
$self->boss->message(2, "gonna make reloc2 '$file_out'");
# Find all the .url files in win32 subdir
my @url_files_list = File::Find::Rule->file()->name('*.url')->relative()->in( catdir($self->global->{image_dir}, 'win32') );
my %url_files = map { s{/}{\\}msg; "win32\\$_" => 1 } @url_files_list;
# Print the first line of the relocation file.
my $file_out_handle;
open $file_out_handle, '>', $file_out or die "open fail";
print {$file_out_handle} $self->global->{image_dir}, "\\\n";
# Read the source file, writing out the files that actually exist.
lib/Perl/Dist/Strawberry/Step/CreateRelocationFile.pm view on Meta::CPAN
print {$file_out_handle} "$pl:backslash\n";
}
}
sub _make_relocation_file1 {
my ($self, $file_in, $file_out, @files_already_processed) = @_;
$self->boss->message(2, "gonna make reloc1 '$file_out'");
# Find files we're already assigned for relocation.
my @filelist;
my %files_already_relocating;
foreach my $file_already_processed (@files_already_processed) {
@filelist = read_file( catfile($self->global->{image_dir}, $file_already_processed) );
shift @filelist; # the first line is 'image_dir'
%files_already_relocating = ( %files_already_relocating, map { m/\A([^:]*):.*\z/msx; $1 => 1 } @filelist );
}
# Find all the .packlist files.
my @packlists_list = File::Find::Rule->file()->name('.packlist')->relative()->in( $self->global->{image_dir} );
my %packlists = map { s{/}{\\}msg; $_ => 1 } @packlists_list;
# Find all the .bat files.
my @batch_files_list = File::Find::Rule->file()->name('*.bat')->relative()->in( $self->global->{image_dir} );
my %batch_files = map { s{/}{\\}msg; $_ => 1 } @batch_files_list;
# Get rid of the .packlist and *.bat files we're already relocating.
delete @packlists{ keys %files_already_relocating };
delete @batch_files{ keys %files_already_relocating };
# Print the first line of the relocation file.
my $file_out_handle;
open $file_out_handle, '>', $file_out or die "open fail";
print {$file_out_handle} $self->global->{image_dir}, "\\\n";
# Read the source file, writing out the files that actually exist.
lib/Perl/Dist/Strawberry/Step/CreateRelocationFile.pm view on Meta::CPAN
# Print out the rest of the .packlist files.
foreach my $pl ( sort { $a cmp $b } keys %packlists ) {
print {$file_out_handle} "$pl:backslash\n";
}
# Print out the batch files that need relocated.
my $batch_contents;
#XXX-FIXME this was original: my $match_string = q(eval [ ] 'exec [ ] ) . quotemeta catfile($self->global->{image_dir}, qw(perl bin perl.exe));
my $match_string = quotemeta catfile($self->global->{image_dir}, qw(perl bin perl.exe));
foreach my $batch_file ( sort { $a cmp $b } keys %batch_files ) {
#$self->boss->message(3, "Checking to see if '$batch_file' needs relocated");
$batch_contents = read_file( catfile($self->global->{image_dir}, $batch_file) );
print {$file_out_handle} "$batch_file:backslash\n" if $batch_contents =~ m/$match_string/msgx;
}
# Finish up by closing the handle.
Perl-Dist
view release on metacpan or search on metacpan
lib/Perl/Dist/Vanilla.pm view on Meta::CPAN
sub install_perl_5100_bin {
my $self = shift;
$self->SUPER::install_perl_5100_bin(@_);
# Overwrite the CPAN config to be relocatable
if ( $self->portable ) {
$self->install_file(
share => 'Perl-Dist vanilla/perl-5.10.0/lib/Config.pm',
install_to => 'perl/lib/Config.pm',
);
( run in 1.964 second using v1.01-cache-2.11-cpan-84de2e75c66 )