source: ocsinventory-agent/trunk/fuentes/inc/Module/Install/Scripts.pm @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 521 bytes
Line 
1#line 1
2package Module::Install::Scripts;
3
4use strict 'vars';
5use Module::Install::Base ();
6
7use vars qw{$VERSION @ISA $ISCORE};
8BEGIN {
9        $VERSION = '0.91';
10        @ISA     = 'Module::Install::Base';
11        $ISCORE  = 1;
12}
13
14sub 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
291;
Note: See TracBrowser for help on using the repository browser.