← Back to branch summary

~ubuntu-branches/ubuntu/saucy/libmodule-install-xsutil-perl/saucy

« back to all changes in this revision

Viewing changes to lib/Module/Install/XSUtil.pm

  • Committer: Package Import Robot
  • Author(s): Angel Abad, gregor herrmann, Salvatore Bonaccorso, Angel Abad
  • Date: 2013-04-27 00:33:07 UTC
  • mfrom: (1.1.21)
  • Revision ID: package-import@ubuntu.com-20130427003307-dbhvvw8o7kyscma3
Tags: 0.44-1
[ gregor herrmann ]
* debian/control: update {versioned,alternative} (build) dependencies.

[ Salvatore Bonaccorso ]
* Change Vcs-Git to canonical URI (git://anonscm.debian.org)
* Change search.cpan.org based URIs to metacpan.org based URIs

[ Angel Abad ]
* Imported Upstream version 0.44
* Bump Standards-Version to 3.9.4
* debian/copyright: Update debian years

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Module/Install/XSUtil.pm
2
2
 
3
3
use 5.005_03;
4
4
 
5
 
$VERSION = '0.43';
 
5
$VERSION = '0.44';
6
6
 
7
7
use Module::Install::Base;
8
8
@ISA     = qw(Module::Install::Base);
93
93
        ;
94
94
    }
95
95
 
 
96
    # cf. https://github.com/sjn/toolchain-site/blob/219db464af9b2f19b04fec05547ac10180a469f3/lancaster-consensus.md
96
97
    my $want_xs;
97
98
    sub want_xs {
98
99
        my($self, $default) = @_;
103
104
        $default = !$ENV{PERL_ONLY} if not defined $default;
104
105
 
105
106
        foreach my $arg(@ARGV){
106
 
            if($arg eq '--pp'){
 
107
 
 
108
            my ($k, $v) = split '=', $arg; # MM-style named args
 
109
            if ($k eq 'PUREPERL_ONLY' && defined $v) {
 
110
                return $want_xs = !$v;
 
111
            }
 
112
            elsif($arg eq '--pp'){ # old-style
107
113
                return $want_xs = 0;
108
114
            }
109
115
            elsif($arg eq '--xs'){
110
116
                return $want_xs = 1;
111
117
            }
112
118
        }
 
119
 
 
120
        if ($ENV{PERL_MM_OPT}) {
 
121
            my($v) = $ENV{PERL_MM_OPT} =~ /\b PUREPERL_ONLY = (\S+) /xms;
 
122
            if (defined $v) {
 
123
                return $want_xs = !$v;
 
124
            }
 
125
        }
 
126
 
113
127
        return $want_xs = $default;
114
128
    }
115
129
}
809
823
 
810
824
=head1 VERSION
811
825
 
812
 
This document describes Module::Install::XSUtil version 0.43.
 
826
This document describes Module::Install::XSUtil version 0.44.
813
827
 
814
828
=head1 SYNOPSIS
815
829