SVN: toys/rsget.pl/RSGet/Dispatch.pm

[sparky]

Author: sparky
Date: Sat Jun 26 03:17:51 2010
New Revision: 11582

Modified:
   toys/rsget.pl/RSGet/Dispatch.pm
Log:
- fixed DELAY(): remove delay information from file list


Modified: toys/rsget.pl/RSGet/Dispatch.pm
==============================================================================
--- toys/rsget.pl/RSGet/Dispatch.pm	(original)
+++ toys/rsget.pl/RSGet/Dispatch.pm	Sat Jun 26 03:17:51 2010
@@ -163,9 +163,11 @@
 	if ( $options->{delay} ) {
 		if ( not $options->{error} or not $options->{error} =~ /^Delayed until/ ) {
 			delete $options->{delay};
+			RSGet::FileList::save( $uri, options => { delay => undef } );
 		} elsif ( $options->{delay} < time ) {
 			delete $options->{delay};
 			delete $options->{error};
+			RSGet::FileList::save( $uri, options => { delay => undef, error => undef } );
 		} else {
 			$delay_check = $options->{delay}
 				if not $delay_check or $delay_check > $options->{delay};