diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-24 08:21:53 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-24 08:21:53 +0000 |
| commit | 94fe3521ce5b2782e2a7937760f9994bd38fc241 (patch) | |
| tree | 6c92c78812e608233a91322d58a97230c254e961 /perl-install | |
| parent | 17f58faa872cfd030c259bb19939f8d40e2ab504 (diff) | |
| download | drakx-94fe3521ce5b2782e2a7937760f9994bd38fc241.tar drakx-94fe3521ce5b2782e2a7937760f9994bd38fc241.tar.gz drakx-94fe3521ce5b2782e2a7937760f9994bd38fc241.tar.bz2 drakx-94fe3521ce5b2782e2a7937760f9994bd38fc241.tar.xz drakx-94fe3521ce5b2782e2a7937760f9994bd38fc241.zip | |
Remove unused code
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index ac27e6a10..d03b3be9f 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -378,7 +378,7 @@ sub psUpdateHdlistsDeps { } sub psUsingHdlists { - my ($o, $method, $o_hdlistsprefix, $o_packages, $o_initialmedium, $o_callback) = @_; + my ($o, $method, $o_hdlistsprefix, $o_packages, $o_initialmedium) = @_; my $prefix = $o->{prefix}; my $listf = install_any::getFile($o_hdlistsprefix ? "$o_hdlistsprefix/Mandrake/base/hdlists" : 'Mandrake/base/hdlists') or die "no hdlists found"; @@ -412,7 +412,6 @@ sub psUsingHdlists { #- make sure the first medium is always selected! #- by default select all image. my $supplmedium = psUsingHdlist($prefix, $method, $o_packages, @$h); - $o_callback and $o_callback->($supplmedium, $o_hdlistsprefix, $method); } log::l("psUsingHdlists read " . int(@{$o_packages->{depslist}}) . |