← Back to branch summary

~ubuntu-branches/ubuntu/precise/libxml-atom-perl/precise

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Jose Luis Rivas, David Paleino, Jose Luis Rivas, gregor herrmann
  • Date: 2008-11-02 03:28:32 UTC
  • mfrom: (1.1.6 upstream) (3.1.3 sid)
  • Revision ID: james.westby@ubuntu.com-20081102032832-k23blym1wri0585p
Tags: 0.29-1
[ David Paleino ]
* debian/control: removed myself from Uploaders

[ Jose Luis Rivas ]
* New upstream release
* Switched to debhelper v7, updated debian/rules, debian/compat and build
  dependencies to debhelper >= 7 on debian/control.
* Bumped to Standards-Version 3.8.0 wo/ changes needed.
* debian/copyright: Updated formatting.
* Added me as Uploader.

[ gregor herrmann ]
* debian/watch: extended regexp for matching upstream releases.
* debian/copyright:
  - Perl is licensed under GPL-1+, not GPL-2+
  - add information for files under inc/
  - add Upstream-Name header
* debian/control:
  - change my email address
  - re-wrap a long line
  - remove a spurious space

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/WriteAll.pm
4
4
use strict;
5
5
use Module::Install::Base;
6
6
 
7
 
use vars qw{$VERSION $ISCORE @ISA};
 
7
use vars qw{$VERSION @ISA $ISCORE};
8
8
BEGIN {
9
 
        $VERSION = '0.64';
 
9
        $VERSION = '0.77';
 
10
        @ISA     = qw{Module::Install::Base};
10
11
        $ISCORE  = 1;
11
 
        @ISA     = qw{Module::Install::Base};
12
12
}
13
13
 
14
14
sub WriteAll {
15
 
    my $self = shift;
16
 
    my %args = (
17
 
        meta        => 1,
18
 
        sign        => 0,
19
 
        inline      => 0,
20
 
        check_nmake => 1,
21
 
        @_
22
 
    );
23
 
 
24
 
    $self->sign(1)                if $args{sign};
25
 
    $self->Meta->write            if $args{meta};
26
 
    $self->admin->WriteAll(%args) if $self->is_admin;
27
 
 
28
 
    if ( $0 =~ /Build.PL$/i ) {
29
 
        $self->Build->write;
30
 
    } else {
31
 
        $self->check_nmake if $args{check_nmake};
32
 
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
33
 
                $self->makemaker_args( PL_FILES => {} );
34
 
        }
35
 
        if ($args{inline}) {
36
 
            $self->Inline->write;
37
 
        } else {
38
 
            $self->Makefile->write;
39
 
        }
40
 
    }
 
15
        my $self = shift;
 
16
        my %args = (
 
17
                meta        => 1,
 
18
                sign        => 0,
 
19
                inline      => 0,
 
20
                check_nmake => 1,
 
21
                @_,
 
22
        );
 
23
 
 
24
        $self->sign(1)                if $args{sign};
 
25
        $self->Meta->write            if $args{meta};
 
26
        $self->admin->WriteAll(%args) if $self->is_admin;
 
27
 
 
28
        $self->check_nmake if $args{check_nmake};
 
29
        unless ( $self->makemaker_args->{PL_FILES} ) {
 
30
                $self->makemaker_args( PL_FILES => {} );
 
31
        }
 
32
 
 
33
        if ( $args{inline} ) {
 
34
                $self->Inline->write;
 
35
        } else {
 
36
                $self->Makefile->write;
 
37
        }
41
38
}
42
39
 
43
40
1;