← Back to branch summary

~ubuntu-branches/ubuntu/precise/libmakefile-parser-perl/precise

« back to all changes in this revision

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

  • Committer: Package Import Robot
  • Author(s): Harlan Lieberman-Berg, Harlan Lieberman-Berg, Ansgar Burchardt, Salvatore Bonaccorso
  • Date: 2011-09-30 11:28:08 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: package-import@ubuntu.com-20110930112808-426wtqinobh5a9cc
Tags: 0.215-1
[ Harlan Lieberman-Berg ]
* Team upload.
* New upstream version (0.215).
* Bump compat, debhelper to 8.  Bump s-v to 3.9.2.
* Cleanup d/copyright file with minor compliance tweaks.
* Removed spelling patch which was accepted upstream.
* Added patch to fix minor misspellings in the Makefile::Parser
  manpage.
* Correct misspellings in Makefile::Parser::GMakeDB manpage as well.

[ Ansgar Burchardt ]
* debian/control: Convert Vcs-* fields to Git.

[ Salvatore Bonaccorso ]
* debian/copyright: Replace DEP5 Format-Specification URL from
  svn.debian.org to anonscm.debian.org URL.
* Email change: Salvatore Bonaccorso -> carnil@debian.org
* Refresh copyright information for included Test::Base
* Add copyright information for included Test::Builder
* Add copyright information for included Test::More
* Update copyright years for included Module::Install
* Update copyright years for upstream files
* Update copyright years for debian/* packaging
* Refer to Debian systems in general.
  Don't refer of only Debian GNU/Linux systems.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/Fetch.pm
2
2
package Module::Install::Fetch;
3
3
 
4
4
use strict;
5
 
use Module::Install::Base;
 
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.68';
 
9
        $VERSION = '1.01';
 
10
        @ISA     = 'Module::Install::Base';
10
11
        $ISCORE  = 1;
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