view release on metacpan or  search on metacpan

NEWS  view on Meta::CPAN

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! 
-----------------------------------------------

 view release on metacpan or  search on metacpan

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
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

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

c/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

c/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

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

ppport.h  view on Meta::CPAN

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|||

 view release on metacpan or  search on metacpan

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

ppport.h  view on Meta::CPAN

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|||

 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.

 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

 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   |

 view release on metacpan or  search on metacpan

share/win32/config.gc.tt  view on Meta::CPAN

usenm='false'
useopcode='true'
useperlio='undef'
useposix='true'
usereentrant='undef'
userelocatableinc='undef'
usesfio='false'
useshrplib='true'
usesitecustomize='undef'
usesocks='undef'
usethreads='undef'

 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.

 view release on metacpan or  search on metacpan

share-5123/default/win32/config.gc.tt  view on Meta::CPAN

usenm='false'
useopcode='true'
useperlio='undef'
useposix='true'
usereentrant='undef'
userelocatableinc='undef'
usesfio='false'
useshrplib='true'
usesitecustomize='undef'
usesocks='undef'
usethreads='undef'

 view release on metacpan or  search on metacpan

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

=head3 Types of distributions to build

This specifies the "highest" level of change in how the perl distribution is 
made - whether a .zip is requested, a .msi, a "thumb-drive portable" .zip, or
a relocatable .msi or .zip.

=head4 msi

The optional boolean C<msi> param is used to indicate that a Windows
Installer distribution package (otherwise known as an msi file) should 

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	default => 0,
);



=head4 relocatable

The optional C<relocatable> parameter is used to determine whether the 
distribution is meant to be relocatable.

This defaults to a false value. 

=cut

has 'relocatable' => (
	is      => 'ro',
	isa     => Bool,
	default => 0,
);

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

		'verify_msi_file_contents',

		# Apply optional portability support
		'install_portable',

		# Apply optional relocation support
		'install_relocatable',

		# Remove waste and temporary files
		'remove_waste',

		# Regenerate file fragments
		'regenerate_fragments',

		# Find file ID's for relocation.
		'find_relocatable_fields',

		# Write out the merge module
		'write_merge_module',

		# Install the Win32 extras

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

		'verify_msi_file_contents',

		# Apply optional portability support
		'install_portable',

		# Apply optional relocation support
		'install_relocatable',

		# Remove waste and temporary files
		'remove_waste',

		# Regenerate file fragments
		'regenerate_fragments',

		# Find file ID's for relocation.
		'find_relocatable_fields',

		# Write out the merge module
		'write_merge_module',

		# Install the Win32 extras

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

=head4 msi_install_warning_text

Returns the text that the MSI needs to use when not able to relocate.

=cut

has 'msi_install_warning_text' => (
	is      => 'ro',

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	default => 0,
);



=head4 use_dll_relocation

The optional C<use_dll_relocation> parameter specifies whether to use the
C++ relocation dll that's being tested for relocating perl, or to call a 
Perl relocation script from the .msi's.

This parameter has no effect is the C<msi> parameter is false, or if the
C<relocatable> parameter is false.

If this variable is false, the Perl relocation script is used instead.
(The default is true.)

=cut

has 'use_dll_relocation' => (
	is      => 'ro',
	isa     => Bool,
	default => 1,
);

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

These parameters specify which directories and files are used when building 
a distribution.

At a minimum, L<image_dir|/image_dir> is required, which specifies where Perl
will be installed (by default, in the case where L<relocatable|/relocatable>
is true.) All other options have defaults, most of the time.

=head4 binary_root

The optional C<binary_root> accessor is the URL (as a string, not including 

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

already exists at object creation time. Trying to build a Perl
distribution on the SAME distribution can thus have devastating
results, and an attempt is made to prevent this from happening.

Perl::Dist::WiX distributions can only be installed to fixed paths
as of yet, unless C<relocatable()|/relocatable> is true.

To facilitate a correctly working CPAN setup, the files that will
ultimately end up in the installer must also be assembled under the
same (default, in the C<relocatable> case) path on the author's machine.

=cut

has 'image_dir' => (
	is       => 'ro',

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

The next 5 options specify the information required to use a merge module.

=head4 fileid_perl

The optional C<fileid_perl> parameter helps the relocation find the perl 
executable.

If the merge module is being built, this is set by the 
L<install_relocatable|/install_relocatable> method.

If the merge module is being used, it needs to be passed in to new().

=head4 fileid_perl_h

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	my $self    = shift;
	my $perl_id = $self->fileid_perl();
	return q{[#} . $perl_id . q{]};
}

=head4 fileid_relocation_pl

The optional C<fileid_relocation_pl> parameter helps the relocation find 
the relocation script.

If the merge module is being built, this is set by the 
L<install_relocatable|/install_relocatable> method.

If the merge module is being used, it needs to be passed in to new().

=head4 fileid_relocation_pl_h

TODO

=cut

has 'fileid_relocation_pl' => (
	is      => 'ro',
	isa     => Str,
	writer  => '_set_fileid_relocation_pl',
	default => q{},
);

sub fileid_relocation_pl_h {
	my $self      = shift;
	my $script_id = $self->fileid_relocation_pl();
	return q{[#} . $script_id . q{]};
}


=head4 msm_code

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	# Check for architectures that we can't build 64-bit on.
	if ( 64 == $self->bits() ) {
		$self->_check_64_bit();
	}

	if (    $self->use_dll_relocation()
		and $self->relocatable()
		and not $self->can('msm_relocation_idlist') )
	{
		PDWiX::Parameter->throw(
			parameter => 'use_dll_relocation: Cannot use DLL relocation'
			  . ' without a relocation file id being available '
			  . '(set this parameter to 0)',
			where => '->final_initialization',
		);
	}

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	return 1;
} ## end sub install_portable



=head3 install_relocatable

The C<install_relocatable> method is used by C<run> to install the perl
script to make Perl relocatable when installed.

This routine must be run before L</regenerate_fragments>, so that the 
fragment created in this method is regenerated and the file ID can
be found by L</find_relocatable_fields> later.

=cut

# Relocatability support must be added before writing the merge module
sub install_relocatable {
	my $self = shift;

	return 1 if not $self->relocatable();

	# Copy the relocation information in.
	$self->copy_file( catfile( $self->wix_dist_dir(), 'relocation.pl.bat' ),
		$self->image_dir() );

	# Make sure it gets installed.
	$self->insert_fragment(
		'relocation_script',
		File::List::Object->new()
		  ->add_file( $self->file('relocation.pl.bat') ),
	);

	return 1;
} ## end sub install_relocatable



=head3 find_relocatable_fields

The C<find_relocatable_fields> method is used by C<run> to find the 
property ID's required to make Perl relocatable when installed.

This routine must be run after L<regenerate_fragments()|/regenerate_fragments>.

=cut

# Relocatability support must be added before writing the merge module
sub find_relocatable_fields {
	my $self = shift;

	return 1 if $self->portable();

	# Set the fileid attributes.

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

		PDWiX->throw("Could not find perl.exe's ID.\n");
	}
	$self->_set_fileid_perl($perl_id);
	$self->trace_line( 2, "File ID for perl.exe: $perl_id\n" );

	return 1 if not $self->relocatable();

	my $script_id =
	  $self->get_fragment_object('relocation_script')
	  ->find_file_id( $self->file('relocation.pl.bat') );
	if ( not $script_id ) {
		PDWiX->throw("Could not find relocation.pl.bat's ID.\n");
	}
	$self->_set_fileid_relocation_pl($script_id);
	$self->trace_line( 2, "File ID for relocation.pl.bat: $script_id\n" );

	return 1;
} ## end sub find_relocatable_fields



=head3 install_win32_extras

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	}

	# Write out the .wxs file
	my $content = $self->process_template(
		'Main.wxs.tt',
		fileid_relocation_pl_h => $self->fileid_relocation_pl_h(),
		fileid_perl_h          => $self->fileid_perl_h(),
		propertylist           => $self->_get_msi_property_list(),
	);
	$content =~ s{\r\n}{\n}msg;        # CRLF -> LF
	$filename_in =

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

			'Read README file.' );
		$list->add_simple_property( 'WIXUI_EXITDIALOGOPTIONALCHECKBOX', 1 );
		$list->add_simple_property( 'WixShellExecTarget',
			$self->msi_fileid_readme_txt() );
	}
	if ( $self->relocatable() ) {
		$list->add_simple_property( 'WIXUI_INSTALLDIR', 'INSTALLDIR' );
	}
	if ( defined $self->msi_banner_top() ) {
		$list->add_wixvariable( 'WixUIBannerBmp', $self->msi_banner_top() );
	}

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	# Generate feature tree.
	$self->_set_feature_tree_object(
		Perl::Dist::WiX::FeatureTree->new( parent => $self, ) );

	my $commandline = q{};
	if ( $self->relocatable() ) {
		$commandline = $self->msm_relocation_commandline();
	}

	# Write out the .wxs file
	my $content = $self->process_template(
		'Merge-Module.wxs.tt',
		fileid_relocation_pl_h     => $self->fileid_relocation_pl_h(),
		fileid_perl_h              => $self->fileid_perl_h(),
		msm_relocation_commandline => $commandline,
	);
	$content =~ s{\r\n}{\n}msg;        # CRLF -> LF
	$filename_in =
	  catfile( $self->fragment_dir, $self->app_name . q{.wxs} );

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

sub msi_ui_type {
	my $self = shift;

	if ( defined $self->msi_feature_tree() ) {
		return 'FeatureTree';
	} elsif ( $self->relocatable() ) {
		return 'MyInstallDir';
	} else {
		return 'MyInstall';
	}
}

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

	return join q{.}, @ver;

} ## end sub msi_perl_major_version


=head3 msi_relocation_commandline

Returns a command line to use in Main.wxs.tt for relocation purposes.

=cut

# For template.
sub msi_relocation_commandline {
	my $self = shift;

	my $answer;
	my %files = $self->msi_relocation_commandline_files();

	my ( $fragment, $file, $id );
	while ( ( $fragment, $file ) = each %files ) {
		$id = $self->get_fragment_object($fragment)->find_file_id($file);
		if ( not defined $id ) {

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

		}
		$answer .= " --file [#$id]";
	}

	return $answer;
} ## end sub msi_relocation_commandline



=head3 msm_relocation_commandline

Returns a command line to use in Merge-Module.wxs.tt for relocation purposes.

=cut

# For template.
sub msm_relocation_commandline {
	my $self = shift;

	my $answer;
	my %files = $self->msm_relocation_commandline_files();

	my ( $fragment, $file, $id );
	while ( ( $fragment, $file ) = each %files ) {
		$id = $self->get_fragment_object($fragment)->find_file_id($file);
		if ( not defined $id ) {

lib/Perl/Dist/WiX.pm  view on Meta::CPAN

		}
		$answer .= " --file [#$id]";
	}

	return $answer;
} ## end sub msm_relocation_commandline



=head3 msi_relocation_commandline_files

Returns the files to use in Main.wxs.tt for relocation purposes.

This is overridden in subclasses, and creates an exception if not overridden.

=cut

# For template.
sub msi_relocation_commandline_files {
	my $self = shift;

	PDWiX::Unimplemented->throw();

	return;
}



=head3 msm_relocation_commandline_files

Returns the files to use in Merge-Module.wxs.tt for relocation purposes.

This is overridden in subclasses, and creates an exception if not overridden.

=cut

# For template.
sub msm_relocation_commandline_files {
	my $self = shift;

	PDWiX::Unimplemented->throw();

	return;
}



=head3 msi_relocation_ca

Returns which CA to use in Main.wxs.tt and Merge-Module.wxs.tt for relocation 
purposes.

=cut

sub msi_relocation_ca {
	my $self = shift;

	return ( 64 == $self->bits() ) ? 'CAQuietExec64' : 'CAQuietExec';
}

 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',
		);

 view release on metacpan or  search on metacpan

RPM/Constants.pm  view on Meta::CPAN

information) fails. May be due either to bad data in that part, or an I/O
failure in reading the data itself.

=item RPMERR_BADRELOCATE

An error with the relocation specifications in the spec file.

=item RPMERR_BADSIGTYPE

Signals that an older, obsoleted style of signature was detected.

RPM/Constants.pm  view on Meta::CPAN

A group specified for file group-ownership was not found in the list of groups
on the system. The group C<root> will be used instead.

=item RPMERR_NORELOCATE

An attempt was made to relocate a package that is not relocatable.

=item RPMERR_NOSPACE

An attempt to write a package file failed for lack of available disk space.

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	  dangerous

2007-09-09  k

	* stop linking empty files
	* start using relocatableinc

2007-08-12  k

	* Property set for release after_258
	* preparing a release

ChangeLog  view on Meta::CPAN

	* trial and error whats going on with make release
	* Property set for release after_183
	* trial and error whats going on with make release
	* Property set for release after_181
	* trial and error whats going on with make release; adding
	  eg/relocate-perl.pl
	* Property set for release after_179
	* how crazy to find a bug immediately after uploading
	* Property set for release after_177
	* typo in release target
	* Property set for release after_175

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

* Support definition and invocation of subs with namespaces

== Tests, Examples and Documentations

* Many new tests: we have around 3850 now
* `modules/` have been relocated to FreePAN. See `modules/README`
* `t/Synopsis/` have been relocated to `Perl6::Bible` on CPAN
* HTML generated by testgraph now responds to mouseover
* New autosmoker script added
* Many cross-referencer improvements
* Normalize all `t/` to begin with `#!/usr/bin/pugs`
* `VICTUALS` file added on April Fools

 view release on metacpan or  search on metacpan

PBS/Depend.pm  view on Meta::CPAN

			{
			$sub_pbs_name_stem = $1
			}
		}
		
	my $relocated_subpbs ;
	if(defined $sub_pbs_name_stem)
		{
		if($pbs_config->{DISPLAY_SUBPBS_SEARCH_INFO})
			{
			PrintInfo "Found stem '$sub_pbs_name_stem'.\n" ;
			}
			
		for my $source_directory (@$source_directories)
			{
			my $relocated_from_stem = PBS::PBSConfig::CollapsePath("$source_directory/$sub_pbs_name_stem") ;
			
			if(-e $relocated_from_stem)
				{
				unless($relocated_subpbs)
					{
					$relocated_subpbs = $relocated_from_stem  ;
					
					if($relocated_from_stem ne $found_pbsfile)
						{
						PrintWarning2("Relocated '$sub_pbs_name_stem' in '$source_directory' $info.\n") ;
						}
					else
						{

PBS/Depend.pm  view on Meta::CPAN

					}
				else
					{
					if($pbs_config->{DISPLAY_SUBPBS_SEARCH_INFO})
						{
						PrintInfo "Ignoring relocation of '$sub_pbs_name_stem' in '$source_directory' $info.\n" ;
						}
					}
				}
			else
				{
				if($pbs_config->{DISPLAY_SUBPBS_SEARCH_INFO})
					{
					PrintInfo "Couldn't relocate '$sub_pbs_name_stem' in '$source_directory' $info.\n" ;
					}
				}
			}
		}
		
	$sub_pbs_name = $relocated_subpbs || $found_pbsfile || $sub_pbs_name;
	}

return($sub_pbs_name) ;
}

 view release on metacpan or  search on metacpan

lib/PerlIO/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/PerlIO/ppport.h  view on Meta::CPAN

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|||

 view release on metacpan or  search on metacpan

lib/Linux/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
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

lib/Linux/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

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

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|||

 view release on metacpan or  search on metacpan

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

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

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

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

bin/ar  view on Meta::CPAN

		if ( !defined($idx) ) { $putpos = @$pNames; }

		# remove from current position
		@{ $pNames->[ $pAr->{$name}[0] ] } = grep( !/^$name$/, @{ $pNames->[ $pAr->{$name}[0] ] } );

		# relocate to $putpos
		$pAr->{$name}[0] = $putpos;
		push( @{ $pNames->[$putpos] }, $name );
		print "m - $name\n" if $opt_v;
		}
	elsif ($opt_p) {

 view release on metacpan or  search on metacpan

cvs2cl.pl  view on Meta::CPAN

  use Text::Wrap;

  my $test_text =
  "This script demonstrates a bug in Text::Wrap.  The very long line
  following this paragraph will be relocated relative to the surrounding
  text:

  ====================================================================

  See?  When the bug happens, we'll get the line of equal signs below

 view release on metacpan or  search on metacpan

util/build_package  view on Meta::CPAN

	END

    apache_update_file

    cat <<-'END'
	# Get relocated module
	MODULE_DST=`echo $MODULE_DST | sed "s|^${PREFIX}|${BASEDIR}|"`
	if test -w ${HTTPD_CONF}; then
	    (
		grep -v '^[^#].*Module.*mod_persistentperl.*' ${HTTPD_CONF}
		echo "LoadModule persistentperl_module $MODULE_DST"

 view release on metacpan or  search on metacpan

Pgreet/I18N/fr_fr.pm  view on Meta::CPAN

=> "Le logiciel Penguin Greetings a rencontré une erreur preservant l\'information ecrite par l\'utilisateur.  Contactez l\'operateur de cet ordinateur d\'Internet s'il vous plait.",

'Missing Penguin Greetings site'
=> 'Site de cartes de voeux absent',

"You are attempting to access a Penguin Greetings e-card site that either no longer exists on this server or has been relocated."
=> "Vous essayez d'acceder a une site de cartes de voeux que n'existe plus sur ce serveur ou a ete deplace.",

'Misconfigured Secondary Penguin Greetings site'
=> 'Erreur de configuration d\'une site de cartes secondaire',

 view release on metacpan or  search on metacpan

lib/PkgConfig/LibPkgConf/Util.pm  view on Meta::CPAN

use warnings;
use base qw( Exporter );
use PkgConfig::LibPkgConf::XS;

our $VERSION = '0.11';
our @EXPORT_OK = qw( argv_split compare_version path_sep path_relocate );

=head1 NAME

PkgConfig::LibPkgConf::Util - Non OO functions for PkgConfig::LibPkgConf

lib/PkgConfig/LibPkgConf/Util.pm  view on Meta::CPAN

Compare versions using RPM version comparison rules as described in the LSB.
Returns -1 if the first version is greater, 0 if both versions are equal,
1 if the second version is greater.

=head2 path_relocate

 my $path = path_relocate($path);

Relocates a path, possibly calling realpath() or cygwin_conv_path() on it.

=head2 path_sep

 view release on metacpan or  search on metacpan

local/lib/perl5/Dist/Zilla/Role/FileFinder.pm  view on Meta::CPAN

#pod Another plugin that knows how to use FileFinder plugins might be configured
#pod like this:
#pod
#pod   [ModuleRelocator]
#pod   finder = RootModules
#pod   relocate_to = attic
#pod
#pod Finders may operate on any rules they like, checking file size, content, name,
#pod or other properties.  They should re-perform their "finding" on each call to
#pod C<find_files> as the files in the distribution may have changed.
#pod

local/lib/perl5/Dist/Zilla/Role/FileFinder.pm  view on Meta::CPAN

Another plugin that knows how to use FileFinder plugins might be configured
like this:

  [ModuleRelocator]
  finder = RootModules
  relocate_to = attic

Finders may operate on any rules they like, checking file size, content, name,
or other properties.  They should re-perform their "finding" on each call to
C<find_files> as the files in the distribution may have changed.

 view release on metacpan or  search on metacpan

lib/Plack/Middleware/Image/Scale.pm  view on Meta::CPAN

L<Undef|Moose::Util::TypeConstraints/Default_Type_Constraints>.

The L<PATH_INFO|PSGI/The_Environment> is compared against this value to
evaluate if the request should be processed. Undef (the default) will match
always.  C<PATH_INFO> is topicalized by settings it to C<$_>, and it may be
rewritten during C<CodeRef> matching. Rewriting can be used to relocate image
paths, much like C<path> parameter for L<Plack::Middleware::Static>.

If path matches, next it will be compared against L</name>. If path doesn't
match, the request will be delegated to the next middleware layer or
application.

 view release on metacpan or  search on metacpan

lib/Plack/App/URLMap.pm  view on Meta::CPAN

paths.

=head1 HOW THIS WORKS

This application works by I<fixing> C<SCRIPT_NAME> and C<PATH_INFO>
before dispatching the incoming request to the relocated
applications.

Say you have a Wiki application that takes C</index> and C</page/*>
and makes a PSGI application C<$wiki_app> out of it, using one of
supported web frameworks, you can put the whole application under