#line 1
package
Module::Install::Scripts;
use
Module::Install::Base ();
BEGIN {
$VERSION
=
'1.02'
;
@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;