[scpubgit/stemmatology.git] / TreeOfTexts / inc / Module / Install / Scripts.pm

#line 1
package Module::Install::Scripts;

use strict 'vars';
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '1.00';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

sub install_script {
	my $self = shift;
	my $args = $self->makemaker_args;
	my $exe  = $args->{EXE_FILES} ||= [];
        foreach ( @_ ) {
		if ( -f $_ ) {
			push @$exe, $_;
		} elsif ( -d 'script' and -f "script/$_" ) {
			push @$exe, "script/$_";
		} else {
			die("Cannot find script '$_'");
		}
	}
}

1;
Commit	Line	Data
dbcf12a6	1	#line 1
	2	package Module::Install::Scripts;
	3
	4	use strict 'vars';
	5	use Module::Install::Base ();
	6
	7	use vars qw{$VERSION @ISA $ISCORE};
	8	BEGIN {
	9	$VERSION = '1.00';
	10	@ISA = 'Module::Install::Base';
	11	$ISCORE = 1;
	12	}
	13
	14	sub install_script {
	15	my $self = shift;
	16	my $args = $self->makemaker_args;
	17	my $exe = $args->{EXE_FILES} \|\|= [];
	18	foreach ( @_ ) {
	19	if ( -f $_ ) {
	20	push @$exe, $_;
	21	} elsif ( -d 'script' and -f "script/$_" ) {
	22	push @$exe, "script/$_";
	23	} else {
	24	die("Cannot find script '$_'");
	25	}
	26	}
	27	}
	28
	29	1;