|
 |
518e70 |
From 68f75c070e1c77a63164a8d127ea775d0ddb62dc Mon Sep 17 00:00:00 2001
|
|
|
518e70 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
518e70 |
Date: Mon, 9 Dec 2013 19:52:01 +0000
|
|
|
518e70 |
Subject: [PATCH] [RT#91273] Useless downloading 03modlist.data.gz
|
|
|
518e70 |
MIME-Version: 1.0
|
|
|
518e70 |
Content-Type: text/plain; charset=UTF-8
|
|
|
518e70 |
Content-Transfer-Encoding: 8bit
|
|
|
518e70 |
|
|
|
518e70 |
Since 0.9136, dslip source 03modlist.data.gz is not parsed, so it's pointless to download it:
|
|
|
518e70 |
|
|
|
518e70 |
sub __create_dslip_tree {
|
|
|
518e70 |
my $self = shift;
|
|
|
518e70 |
my %hash = @_;
|
|
|
518e70 |
my $conf = $self->configure_object;
|
|
|
518e70 |
|
|
|
518e70 |
return {}; # Quick hack
|
|
|
518e70 |
[...]
|
|
|
518e70 |
}
|
|
|
518e70 |
|
|
|
518e70 |
Attached patch disables downloading 03modlist.data.gz.
|
|
|
518e70 |
|
|
|
518e70 |
Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
|
|
|
518e70 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
518e70 |
---
|
|
|
518e70 |
lib/CPANPLUS/Internals/Source.pm | 2 +-
|
|
|
518e70 |
t/03_CPANPLUS-Internals-Source.t | 2 +-
|
|
|
518e70 |
2 files changed, 2 insertions(+), 2 deletions(-)
|
|
|
518e70 |
|
|
|
518e70 |
diff --git a/lib/CPANPLUS/Internals/Source.pm b/lib/CPANPLUS/Internals/Source.pm
|
|
|
518e70 |
index f43dca5..05b9394 100644
|
|
|
518e70 |
--- a/lib/CPANPLUS/Internals/Source.pm
|
|
|
518e70 |
+++ b/lib/CPANPLUS/Internals/Source.pm
|
|
|
518e70 |
@@ -307,7 +307,7 @@ sub _check_trees {
|
|
|
518e70 |
|
|
|
518e70 |
my $uptodate = 1; # default return value
|
|
|
518e70 |
|
|
|
518e70 |
- for my $name (qw[auth dslip mod]) {
|
|
|
518e70 |
+ for my $name (qw[auth mod]) {
|
|
|
518e70 |
for my $file ( $conf->_get_source( $name ) ) {
|
|
|
518e70 |
$self->__check_uptodate(
|
|
|
518e70 |
file => File::Spec->catfile( $path, $file ),
|
|
|
518e70 |
diff --git a/t/03_CPANPLUS-Internals-Source.t b/t/03_CPANPLUS-Internals-Source.t
|
|
|
518e70 |
index d6ad2ea..1acc48d 100644
|
|
|
518e70 |
--- a/t/03_CPANPLUS-Internals-Source.t
|
|
|
518e70 |
+++ b/t/03_CPANPLUS-Internals-Source.t
|
|
|
518e70 |
@@ -35,7 +35,7 @@ my $modname = TEST_CONF_MODULE;
|
|
|
518e70 |
my $at = $cb->_author_tree;
|
|
|
518e70 |
|
|
|
518e70 |
### source files should be copied from the 'server' now
|
|
|
518e70 |
- for my $name (qw[auth mod dslip] ) {
|
|
|
518e70 |
+ for my $name (qw[auth mod] ) {
|
|
|
518e70 |
my $file = File::Spec->catfile(
|
|
|
518e70 |
$conf->get_conf('base'),
|
|
|
518e70 |
$conf->_get_source($name)
|
|
|
518e70 |
--
|
|
|
518e70 |
1.8.3.1
|
|
|
518e70 |
|