SVN: toys/rsget.pl/RSGet: ListAdder.pm ListManager.pm Main.pm
sparky
sparky at pld-linux.org
Fri Oct 9 23:40:01 CEST 2009
Author: sparky
Date: Fri Oct 9 23:40:00 2009
New Revision: 10748
Modified:
toys/rsget.pl/RSGet/ListAdder.pm
toys/rsget.pl/RSGet/ListManager.pm
toys/rsget.pl/RSGet/Main.pm
Log:
- fix
Modified: toys/rsget.pl/RSGet/ListAdder.pm
==============================================================================
--- toys/rsget.pl/RSGet/ListAdder.pm (original)
+++ toys/rsget.pl/RSGet/ListAdder.pm Fri Oct 9 23:40:00 2009
@@ -27,7 +27,7 @@
my $lines = $self->{lines};
my %list_uris;
- foreach my $mcd ( @$act_clist ) {
+ foreach my $mcd ( @$RSGet::ListManager::act_clist ) {
foreach my $ucd ( @$mcd ) {
my $uri = $ucd->[0];
$list_uris{ $uri } = 1;
@@ -164,7 +164,7 @@
$self->{select_clone} = 1;
my $lines = $self->{lines};
- my $own_clist = [ @$act_clist ];
+ my $own_clist = [ @$RSGet::ListManager::act_clist ];
my $active = 0;
my $clone_select;
Modified: toys/rsget.pl/RSGet/ListManager.pm
==============================================================================
--- toys/rsget.pl/RSGet/ListManager.pm (original)
+++ toys/rsget.pl/RSGet/ListManager.pm Fri Oct 9 23:40:00 2009
@@ -208,7 +208,7 @@
return $got_bad;
}
-my $act_clist;
+our $act_clist;
sub autoadd
{
my $getlist = shift;
Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm (original)
+++ toys/rsget.pl/RSGet/Main.pm Fri Oct 9 23:40:00 2009
@@ -11,6 +11,7 @@
use RSGet::Dispatch;
use RSGet::FileList;
use RSGet::Get;
+use RSGet::MortalObject;
use RSGet::Line;
use RSGet::ListManager;
use RSGet::Processor;
@@ -221,6 +222,7 @@
$lasttime = $time;
RSGet::Wait::wait_update();
+ RSGet::MortalObject::update();
RSGet::Captcha::captcha_update();
my $getlist = RSGet::FileList::readlist();
More information about the pld-cvs-commit
mailing list