Permalink
Browse files

Fix a bug in the fetch error message

  • Loading branch information...
1 parent bd00247 commit 88843e9fc8ada0eea86ac523fb616d872ef7d0c3 @dolmen committed Oct 21, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 inc/Build/Author.pm
View
@@ -72,7 +72,7 @@ sub _fetch
$ua->agent($self->dist_name.'/'.$self->dist_name);
$ua->env_proxy;
my $rsp = $ua->get($url, ':content_file' => $file);
- die "$file: $rsp->status_line\n" unless $rsp->is_success;
+ die "$file: @{[ $rsp->status_line ]}\n" unless $rsp->is_success;
my $t = HTTP::Date::str2time($rsp->header('Last-Modified'));
utime $t, $t, $file;

0 comments on commit 88843e9

Please sign in to comment.