summaryrefslogtreecommitdiffstats
path: root/urpm/download.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-06-18 15:55:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-06-18 15:55:04 +0000
commit5dd73a30cf61cbe016c60c25bcd2d3e66b34cb14 (patch)
tree1a15760fcc3464bc7552d67ce8be03c4788b3042 /urpm/download.pm
parent48d17aecfbe7938e796fec388f5d357da761cba2 (diff)
downloadurpmi-5dd73a30cf61cbe016c60c25bcd2d3e66b34cb14.tar
urpmi-5dd73a30cf61cbe016c60c25bcd2d3e66b34cb14.tar.gz
urpmi-5dd73a30cf61cbe016c60c25bcd2d3e66b34cb14.tar.bz2
urpmi-5dd73a30cf61cbe016c60c25bcd2d3e66b34cb14.tar.xz
urpmi-5dd73a30cf61cbe016c60c25bcd2d3e66b34cb14.zip
help debugging curl/wget commands
Diffstat (limited to 'urpm/download.pm')
-rw-r--r--urpm/download.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/urpm/download.pm b/urpm/download.pm
index 5e471eb4..3fa605ce 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -245,6 +245,7 @@ sub sync_wget {
'-P', $options->{dir},
@_
) . " |";
+ $options->{debug} and $options->{debug}($wget_command);
my $wget_pid = open(my $wget, $wget_command);
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
local $_;
@@ -329,6 +330,7 @@ sub sync_curl {
"--anyauth",
(defined $options->{'curl-options'} ? split /\s+/, $options->{'curl-options'} : ()),
@ftp_files);
+ $options->{debug} and $options->{debug}($cmd);
open my $curl, "$cmd |";
while (<$curl>) {
if (/Content-Length:\s*(\d+)/) {
@@ -393,6 +395,7 @@ sub sync_curl {
(defined $options->{'curl-options'} ? split /\s+/, $options->{'curl-options'} : ()),
"--stderr", "-", # redirect everything to stdout
@all_files);
+ $options->{debug} and $options->{debug}($cmd);
my $curl_pid = open(my $curl, "$cmd |");
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
local $_;