← Back to branch summary

~ubuntu-branches/ubuntu/maverick/libextutils-autoinstall-perl/maverick

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Bastian Blank
  • Date: 2008-04-20 20:58:37 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20080420205837-vg72sld0wv581iz3
Tags: 0.63-1
* New upstream version.
* Use external orig.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/AutoInstall.pm
1
 
#line 1 "inc/Module/Install/AutoInstall.pm - /usr/local/lib/perl5/site_perl/5.8.5/Module/Install/AutoInstall.pm"
2
 
# $File: //depot/cpan/Module-Install/lib/Module/Install/AutoInstall.pm $ $Author: autrijus $
3
 
# $Revision: #13 $ $Change: 1846 $ $DateTime: 2003/12/31 22:57:12 $ vim: expandtab shiftwidth=4
4
 
 
 
1
#line 1 "inc/Module/Install/AutoInstall.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/AutoInstall.pm"
5
2
package Module::Install::AutoInstall;
6
3
use Module::Install::Base; @ISA = qw(Module::Install::Base);
7
4
 
21
18
    my $self = shift;
22
19
    return if $self->{done}++;
23
20
 
24
 
# ExtUtils::AutoInstall Bootstrap Code, version 7.
25
 
AUTO:{my$p='ExtUtils::AutoInstall';my$v=0.49;$p->VERSION||0>=$v
26
 
or+eval"use $p $v;1"or+do{my$e=$ENV{PERL_EXTUTILS_AUTOINSTALL};
27
 
(!defined($e)||$e!~m/--(?:default|skip|testonly)/and-t STDIN or
28
 
eval"use ExtUtils::MakeMaker;WriteMakefile(PREREQ_PM=>{'$p',$v}
29
 
);1"and exit)and print"==> $p $v required. Install it from CP".
30
 
"AN? [Y/n] "and<STDIN>!~/^n/i and print"*** Installing $p\n"and
31
 
do{if (eval '$>' and lc(`sudo -V`) =~ /version/){system('sudo',
32
 
$^X,"-MCPANPLUS","-e","CPANPLUS::install $p");eval"use $p $v;1"
33
 
||system('sudo', $^X, "-MCPAN", "-e", "CPAN::install $p")}eval{
34
 
require CPANPLUS;CPANPLUS::install$p};eval"use $p $v;1"or eval{
35
 
require CPAN;CPAN::install$p};eval"use $p $v;1"||die"*** Please
36
 
manually install $p $v from cpan.org first...\n"}}}
37
 
 
38
21
    # Flatten array of arrays into a single array
39
22
    my @core = map @$_, map @$_, grep ref,
40
23
               $self->build_requires, $self->requires;
43
26
        push @core, splice(@_, 0, 2);
44
27
    }
45
28
 
 
29
    # We'll need ExtUtils::AutoInstall
 
30
    $self->include('ExtUtils::AutoInstall');
 
31
    require ExtUtils::AutoInstall;
 
32
 
46
33
    ExtUtils::AutoInstall->import(
47
34
        (@core ? (-core => \@core) : ()), @_, $self->features
48
35
    );