← Back to branch summary

~ubuntu-branches/ubuntu/vivid/libfilehandle-unget-perl/vivid

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Jonathan Yu, Jonathan Yu, gregor herrmann, Nathan Handler
  • Date: 2009-09-01 11:32:31 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090901113231-g81if0ku1n43fbvg
Tags: 0.1623-1
[ Jonathan Yu ]
* New upstream release
  + Fix bug where files with binary data would sometimes cause
    an uninitialized warning (RT#48528)
  + Remove EU::MM::bytes, which doesn't exist anymore (RT#48984)
* Standards-Version 3.8.3 (no changes)
* Use short debhelper rules format, bump compat to 7
* Updated copyright information
* Add myself to Copyright and Uploaders
* Change to machine-readable copyright format

[ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
  (source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.

[ Nathan Handler ]
* debian/watch: Update to ignore development releases.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/Can.pm
2
2
package Module::Install::Can;
3
3
 
4
4
use strict;
5
 
use Module::Install::Base;
6
 
use Config ();
7
 
### This adds a 5.005 Perl version dependency.
8
 
### This is a bug and will be fixed.
9
 
use File::Spec ();
10
 
use ExtUtils::MakeMaker ();
 
5
use Config                ();
 
6
use File::Spec            ();
 
7
use ExtUtils::MakeMaker   ();
 
8
use Module::Install::Base ();
11
9
 
12
 
use vars qw{$VERSION $ISCORE @ISA};
 
10
use vars qw{$VERSION @ISA $ISCORE};
13
11
BEGIN {
14
 
        $VERSION = '0.75';
 
12
        $VERSION = '0.91';
 
13
        @ISA     = 'Module::Install::Base';
15
14
        $ISCORE  = 1;
16
 
        @ISA     = qw{Module::Install::Base};
17
15
}
18
16
 
19
17
# check if we can load some module
39
37
        return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
40
38
 
41
39
        for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
 
40
                next if $dir eq '';
42
41
                my $abs = File::Spec->catfile($dir, $_[1]);
43
42
                return $abs if (-x $abs or $abs = MM->maybe_command($abs));
44
43
        }
79
78
 
80
79
__END__
81
80
 
82
 
#line 157
 
81
#line 156