← Back to branch summary

~ubuntu-branches/ubuntu/wily/libalgorithm-dependency-perl/wily

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Genannt
  • Date: 2011-07-02 12:52:05 UTC
  • mfrom: (1.2.2 upstream)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20110702125205-0xr1rbjc85vu4wcs
http://bugs.debian.org/605314
* new upstream version (Closes: 605314)
* bumped debhelper compat version
* bumped standards version
  - dh_clean -k to dh_prep
  - added misc:Depends at control file
* changed PREFIX to DESTDIR at rules
* added homepage field at control

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/Fetch.pm
6
6
 
7
7
use vars qw{$VERSION $ISCORE @ISA};
8
8
BEGIN {
9
 
        $VERSION = '0.68';
 
9
        $VERSION = '0.83';
10
10
        $ISCORE  = 1;
11
11
        @ISA     = qw{Module::Install::Base};
12
12
}
13
13
 
14
14
sub get_file {
15
15
    my ($self, %args) = @_;
16
 
    my ($scheme, $host, $path, $file) = 
 
16
    my ($scheme, $host, $path, $file) =
17
17
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
18
18
 
19
19
    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
20
20
        $args{url} = $args{ftp_url}
21
21
            or (warn("LWP support unavailable!\n"), return);
22
 
        ($scheme, $host, $path, $file) = 
 
22
        ($scheme, $host, $path, $file) =
23
23
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
24
24
    }
25
25