Minor tweaks to pull-debian-source

This commit is contained in:
Stefano Rivera 2010-12-24 00:19:27 +02:00
parent d5c7de285e
commit e9b90a8650

View File

@ -49,7 +49,7 @@ if (! $no_conf) {
my $shell_out = `/bin/bash -c '$shell_cmd'`; my $shell_out = `/bin/bash -c '$shell_cmd'`;
my %config_values; my %config_values;
foreach my $line (split /\n/, $shell_out) { foreach my $line (split /\n/, $shell_out) {
my($k, $v) = split /=/, $line; my($k, $v) = split /=/, $line, 2;
$config_values{$k} = $v; $config_values{$k} = $v;
} }
$mirror = $config_values{'PULL_DEBIAN_SOURCE_DEBMIRROR'} $mirror = $config_values{'PULL_DEBIAN_SOURCE_DEBMIRROR'}
@ -182,9 +182,9 @@ Options:
-h, --help Show this help message and exit -h, --help Show this help message and exit
-m DEBMIRROR, --mirror=DEBMIRROR -m DEBMIRROR, --mirror=DEBMIRROR
Preferred Debian mirror Preferred Debian mirror
(default: http://ftp.debian.org/debian/) (default: http://ftp.debian.org/debian)
-n, --no-fallback If a custom mirror is provided and an error occurs -n, --no-fallback If a custom mirror is provided and an error occurs
while downloading, don't fall back to the default. while downloading, don't fall back to the default
--no-conf Don't read config files or environment variables --no-conf Don't read config files or environment variables
EOF EOF
exit($exit); exit($exit);