SVN: toys/rsget.pl/RSGet: ListAdder.pm ListManager.pm Main.pm

[sparky]

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();