r75261 - in /trunk/perlbrew: ./ debian/ lib/App/ t/ t/mock_perlbrew_root/

ghedo-guest at users.alioth.debian.org ghedo-guest at users.alioth.debian.org
Wed Jun 8 11:07:39 UTC 2011 

Author: ghedo-guest
Date: Wed Jun  8 11:07:01 2011
New Revision: 75261

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75261
Log:
WAITS-FOR: libtest-spec-perl
* New upstream release
* Add libtest-spec-perl to Build-Depends-Indep

Added:
    trunk/perlbrew/t/08.error_available.t
      - copied unchanged from r75260, branches/upstream/perlbrew/current/t/08.error_available.t
    trunk/perlbrew/t/08.error_install.t
      - copied unchanged from r75260, branches/upstream/perlbrew/current/t/08.error_install.t
    trunk/perlbrew/t/08.error_install_blead.t
      - copied unchanged from r75260, branches/upstream/perlbrew/current/t/08.error_install_blead.t
    trunk/perlbrew/t/08.error_install_cpanm.t
      - copied unchanged from r75260, branches/upstream/perlbrew/current/t/08.error_install_cpanm.t
    trunk/perlbrew/t/08.error_mirror.t
      - copied unchanged from r75260, branches/upstream/perlbrew/current/t/08.error_mirror.t
    trunk/perlbrew/t/installation2.t
      - copied unchanged from r75260, branches/upstream/perlbrew/current/t/installation2.t
Removed:
    trunk/perlbrew/t/mock_perlbrew_root/
Modified:
    trunk/perlbrew/Changes
    trunk/perlbrew/MANIFEST
    trunk/perlbrew/META.yml
    trunk/perlbrew/Makefile.PL
    trunk/perlbrew/debian/changelog
    trunk/perlbrew/lib/App/perlbrew.pm

Modified: trunk/perlbrew/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/perlbrew/Changes?rev=75261&op=diff
==============================================================================
--- trunk/perlbrew/Changes (original)
+++ trunk/perlbrew/Changes Wed Jun  8 11:07:01 2011
@@ -1,3 +1,8 @@
+0.24:
+- Done GH #92 -- Show error messages on network errors.
+- Fix GH #82 -- deduplicate items in PATH for the `list` command.
+- Tests for various commands and methods.
+
 0.23:
 - dependency fixes
 - Fix auto-detection of curl

Modified: trunk/perlbrew/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/perlbrew/MANIFEST?rev=75261&op=diff
==============================================================================
--- trunk/perlbrew/MANIFEST (original)
+++ trunk/perlbrew/MANIFEST Wed Jun  8 11:07:01 2011
@@ -27,6 +27,10 @@
 t/05.get_current_perl.t
 t/06.installed_perls.t
 t/07.argv.t
+t/08.error_available.t
+t/08.error_install.t
+t/08.error_install_blead.t
+t/08.error_install_cpanm.t
+t/08.error_mirror.t
 t/installation.t
-t/mock_perlbrew_root/perls/perl-5.14.0/bin/perl
-t/mock_perlbrew_root/perls/the-dude/bin/perl
+t/installation2.t

Modified: trunk/perlbrew/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/perlbrew/META.yml?rev=75261&op=diff
==============================================================================
--- trunk/perlbrew/META.yml (original)
+++ trunk/perlbrew/META.yml Wed Jun  8 11:07:01 2011
@@ -10,6 +10,7 @@
   Test::More: 0
   Test::Output: 0
   Test::Simple: 0
+  Test::Spec: 0
 configure_requires:
   ExtUtils::MakeMaker: 6.42
 distribution_type: module
@@ -31,4 +32,4 @@
 resources:
   license: http://opensource.org/licenses/mit-license.php
   repository: git://github.com/gugod/App-perlbrew.git
-version: 0.23
+version: 0.24

Modified: trunk/perlbrew/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/perlbrew/Makefile.PL?rev=75261&op=diff
==============================================================================
--- trunk/perlbrew/Makefile.PL (original)
+++ trunk/perlbrew/Makefile.PL Wed Jun  8 11:07:01 2011
@@ -55,6 +55,7 @@
 test_requires 'Test::More';
 test_requires 'Test::Output';
 test_requires 'Test::Exception';
+test_requires 'Test::Spec';
 test_requires 'Path::Class';
 test_requires 'IO::All';
 

Modified: trunk/perlbrew/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/perlbrew/debian/changelog?rev=75261&op=diff
==============================================================================
--- trunk/perlbrew/debian/changelog (original)
+++ trunk/perlbrew/debian/changelog Wed Jun  8 11:07:01 2011
@@ -1,3 +1,12 @@
+perlbrew (0.24-1) UNRELEASED; urgency=low
+
+  WAITS-FOR: libtest-spec-perl
+
+  * New upstream release
+  * Add libtest-spec-perl to Build-Depends-Indep
+
+ -- Alessandro Ghedini <al3xbio at gmail.com>  Wed, 08 Jun 2011 12:29:37 +0200
+
 perlbrew (0.23-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/perlbrew/lib/App/perlbrew.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/perlbrew/lib/App/perlbrew.pm?rev=75261&op=diff
==============================================================================
--- trunk/perlbrew/lib/App/perlbrew.pm (original)
+++ trunk/perlbrew/lib/App/perlbrew.pm Wed Jun  8 11:07:01 2011
@@ -5,7 +5,7 @@
 use Getopt::Long ();
 use File::Spec::Functions qw( catfile );
 
-our $VERSION = "0.23";
+our $VERSION = "0.24";
 our $CONF;
 
 my $ROOT         = $ENV{PERLBREW_ROOT} || "$ENV{HOME}/perl5/perlbrew";
@@ -386,6 +386,10 @@
     my $url = "http://www.cpan.org/src/README.html";
     my $html = http_get( $url, undef, undef );
 
+    unless($html) {
+        die "\nERROR: Unable to retrieve the list of perls.\n\n";
+    }
+
     my @available_versions;
 
     for ( split "\n", $html ) {
@@ -579,9 +583,13 @@
     print "Fetching $dist_git_describe as $dist_tarball_path\n";
     http_get(
         "http://perl5.git.perl.org/perl.git/snapshot/$dist_tarball",
-        undef,
         sub {
             my ($body) = @_;
+
+            unless ($body) {
+                die "\nERROR: Failed to download perl-blead tarball.\n\n";
+            }
+
             open my $BALL, "> $dist_tarball_path" or die "Couldn't open $dist_tarball_path: $!";
             print $BALL $body;
             close $BALL;
@@ -616,6 +624,10 @@
     my $mirror = $self->conf->{mirror};
     my $header = $mirror ? { 'Cookie' => "cpan=$mirror->{url}" } : undef;
     my $html = http_get("http://search.cpan.org/dist/$dist", $header);
+
+    unless ($html) {
+        die "ERROR: Failed to download $dist tarball.";
+    }
 
     my ($dist_path, $dist_tarball) =
         $html =~ m[<a href="(/CPAN/authors/id/.+/(${dist}.tar.(gz|bz2)))">Download</a>];
@@ -826,7 +838,7 @@
     $current_perl_executable =~ s/\n$//;
 
     my $current_perl_executable_version;
-    for ( uniq grep { -f $_ && -x $_ } map { "$_/perl" } split(":", $self->env('PATH')) ) {
+    for ( grep { -f $_ && -x $_ } uniq map { s/\/+$//; "$_/perl" } split(":", $self->env('PATH')) ) {
         $current_perl_executable_version =
           $self->format_perl_version(`$_ -e 'print \$]'`);
         push @result, {
@@ -949,6 +961,11 @@
     my($self) = @_;
     print "Fetching mirror list\n";
     my $raw = http_get("http://search.cpan.org/mirror");
+
+    unless ($raw) {
+        die "\nERROR: Failed to retrive the mirror list.\n\n";
+    }
+
     my $found;
     my @mirrors;
     foreach my $line ( split m{\n}, $raw ) {
@@ -1039,6 +1056,10 @@
     my ($self, $perl) = @_;
     my $body = http_get('https://github.com/miyagawa/cpanminus/raw/master/cpanm');
 
+    unless ($body) {
+        die "\nERROR: Failed to retrive cpanm executable.\n\n";
+    }
+
     open my $CPANM, '>', "$ROOT/bin/cpanm" or die "cannot open file($ROOT/bin/cpanm): $!";
     print $CPANM $body;
     close $CPANM;

More information about the Pkg-perl-cvs-commits mailing list