← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libtest-www-selenium-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to inc/Module/Install/Makefile.pm

  • Committer: Bazaar Package Importer
  • Author(s): AGOSTINI Yves
  • Date: 2008-04-23 21:54:19 UTC
  • Revision ID: james.westby@ubuntu.com-20080423215419-wzeiufwlg91hwk5w
Tags: upstream-1.15
Import upstream version 1.15

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/Makefile.pm
 
1
#line 1
 
2
package Module::Install::Makefile;
 
3
 
 
4
use strict 'vars';
 
5
use Module::Install::Base;
 
6
use ExtUtils::MakeMaker ();
 
7
 
 
8
use vars qw{$VERSION @ISA};
 
9
BEGIN {
 
10
        $VERSION = '0.61';
 
11
        @ISA     = qw{Module::Install::Base};
 
12
}
 
13
 
 
14
sub Makefile { $_[0] }
 
15
 
 
16
my %seen = ();
 
17
 
 
18
sub prompt {
 
19
    shift;
 
20
 
 
21
    # Infinite loop protection
 
22
    my @c = caller();
 
23
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
 
24
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
 
25
    }
 
26
 
 
27
    # In automated testing, always use defaults
 
28
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
 
29
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
 
30
        goto &ExtUtils::MakeMaker::prompt;
 
31
    } else {
 
32
        goto &ExtUtils::MakeMaker::prompt;
 
33
    }
 
34
}
 
35
 
 
36
sub makemaker_args {
 
37
    my $self = shift;
 
38
    my $args = ($self->{makemaker_args} ||= {});
 
39
    %$args = ( %$args, @_ ) if @_;
 
40
    $args;
 
41
}
 
42
 
 
43
# For mm args that take multiple space-seperated args,
 
44
# append an argument to the current list.
 
45
sub makemaker_append {
 
46
    my $self = shift;
 
47
    my $name = shift;
 
48
    my $args = $self->makemaker_args;
 
49
    $args->{name} = defined $args->{$name}
 
50
        ? join( ' ', $args->{name}, @_ )
 
51
        : join( ' ', @_ );
 
52
}
 
53
 
 
54
sub build_subdirs {
 
55
    my $self    = shift;
 
56
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
 
57
    for my $subdir (@_) {
 
58
        push @$subdirs, $subdir;
 
59
    }
 
60
}
 
61
 
 
62
sub clean_files {
 
63
    my $self  = shift;
 
64
    my $clean = $self->makemaker_args->{clean} ||= {};
 
65
    %$clean = (
 
66
        %$clean, 
 
67
        FILES => join(' ', grep length, $clean->{FILES}, @_),
 
68
    );
 
69
}
 
70
 
 
71
sub realclean_files {
 
72
    my $self  = shift;
 
73
    my $realclean = $self->makemaker_args->{realclean} ||= {};
 
74
    %$realclean = (
 
75
        %$realclean, 
 
76
        FILES => join(' ', grep length, $realclean->{FILES}, @_),
 
77
    );
 
78
}
 
79
 
 
80
sub libs {
 
81
    my $self = shift;
 
82
    my $libs = ref $_[0] ? shift : [ shift ];
 
83
    $self->makemaker_args( LIBS => $libs );
 
84
}
 
85
 
 
86
sub inc {
 
87
    my $self = shift;
 
88
    $self->makemaker_args( INC => shift );
 
89
}
 
90
 
 
91
sub write {
 
92
    my $self = shift;
 
93
    die "&Makefile->write() takes no arguments\n" if @_;
 
94
 
 
95
    my $args = $self->makemaker_args;
 
96
    $args->{DISTNAME} = $self->name;
 
97
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($args);
 
98
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
 
99
    $args->{NAME}     =~ s/-/::/g;
 
100
    if ( $self->tests ) {
 
101
        $args->{test} = { TESTS => $self->tests };
 
102
    }
 
103
    if ($] >= 5.005) {
 
104
        $args->{ABSTRACT} = $self->abstract;
 
105
        $args->{AUTHOR}   = $self->author;
 
106
    }
 
107
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
 
108
        $args->{NO_META} = 1;
 
109
    }
 
110
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
 
111
        $args->{SIGN} = 1;
 
112
    }
 
113
    unless ( $self->is_admin ) {
 
114
        delete $args->{SIGN};
 
115
    }
 
116
 
 
117
    # merge both kinds of requires into prereq_pm
 
118
    my $prereq = ($args->{PREREQ_PM} ||= {});
 
119
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
 
120
                 ($self->build_requires, $self->requires) );
 
121
 
 
122
    # merge both kinds of requires into prereq_pm
 
123
    my $subdirs = ($args->{DIR} ||= []);
 
124
    if ($self->bundles) {
 
125
        foreach my $bundle (@{ $self->bundles }) {
 
126
            my ($file, $dir) = @$bundle;
 
127
            push @$subdirs, $dir if -d $dir;
 
128
            delete $prereq->{$file};
 
129
        }
 
130
    }
 
131
 
 
132
    if ( my $perl_version = $self->perl_version ) {
 
133
        eval "use $perl_version; 1"
 
134
            or die "ERROR: perl: Version $] is installed, "
 
135
                . "but we need version >= $perl_version";
 
136
    }
 
137
 
 
138
    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
 
139
    if ($self->admin->preop) {
 
140
        $args{dist} = $self->admin->preop;
 
141
    }
 
142
 
 
143
    my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
 
144
    $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
 
145
}
 
146
 
 
147
sub fix_up_makefile {
 
148
    my $self          = shift;
 
149
    my $makefile_name = shift;
 
150
    my $top_class     = ref($self->_top) || '';
 
151
    my $top_version   = $self->_top->VERSION || '';
 
152
 
 
153
    my $preamble = $self->preamble 
 
154
        ? "# Preamble by $top_class $top_version\n"
 
155
            . $self->preamble
 
156
        : '';
 
157
    my $postamble = "# Postamble by $top_class $top_version\n"
 
158
        . ($self->postamble || '');
 
159
 
 
160
    local *MAKEFILE;
 
161
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
 
162
    my $makefile = do { local $/; <MAKEFILE> };
 
163
    close MAKEFILE or die $!;
 
164
 
 
165
    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
 
166
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
 
167
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
 
168
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
 
169
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
 
170
 
 
171
    # XXX - This is currently unused; not sure if it breaks other MM-users
 
172
    # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
 
173
 
 
174
    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
 
175
    print MAKEFILE  "$preamble$makefile$postamble" or die $!;
 
176
    close MAKEFILE  or die $!;
 
177
 
 
178
    1;
 
179
}
 
180
 
 
181
sub preamble {
 
182
    my ($self, $text) = @_;
 
183
    $self->{preamble} = $text . $self->{preamble} if defined $text;
 
184
    $self->{preamble};
 
185
}
 
186
 
 
187
sub postamble {
 
188
    my ($self, $text) = @_;
 
189
    $self->{postamble} ||= $self->admin->postamble;
 
190
    $self->{postamble} .= $text if defined $text;
 
191
    $self->{postamble}
 
192
}
 
193
 
 
194
1;
 
195
 
 
196
__END__
 
197
 
 
198
#line 324