view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

examples/conf/perusion/clients/perusion.com
examples/conf/perusion/clients/sam.heins.net
examples/conf/perusion/clients/tim.perusion.com
examples/conf/perusion/snapback.conf
examples/conf/snapback.conf
Makefile.PL
MANIFEST			This list of files
MANIFEST.SKIP
META.yml
README
relocate.util
scripts/snap_charge.PL
scripts/snapback2.PL
scripts/snapback_loop.PL
scripts/snapcopy.PL
t/1.t
t/2.t

Makefile.PL  view on Meta::CPAN

			cp  /path/to/gnu/cp

##############
EOF
	my %X;
	$X{INSTALLDIRS}	= "perl";
	$X{clean} = {
		FILES => join(" ", 'scripts/initp.pl', @scripts, 'b_target', 'b_source', 'b_source2'),
	};
	$X{EXE_FILES}	= [ @scripts ];
	$X{PL_FILES}	= { 'relocate.util' => [ @scripts ] };
	for(%MV::Default) {
		$X{$_} = $MV::Default{$_}
			unless defined $X{$_};
	}
	mk_initp(\%X);
	return \%X;
}

sub mk_initp {
	my ($ref) = @_;

relocate.util  view on Meta::CPAN

#!/usr/bin/perl -w

# relocate.pl
# $Id: relocate.util,v 1.2 2006/08/23 14:58:10 mike Exp $
#
# Rewrite pathnames or other values that need to be hardcoded in
# files. Take a commented line, remove the leading hash character,
# substitute for the variable inside ~_~HERE~_~, and place the
# result on the line above the comment, like this:

=for example

use lib '/home/jon/interchange/lib';
#use lib '~_~INSTALLPRIVLIB~_~';