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

[sparky]

Author: sparky
Date: Sun Oct  4 22:40:17 2009
New Revision: 10689

Modified:
   toys/rsget.pl/RSGet/Get.pm
Log:
- allow multiple download commands


Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm	(original)
+++ toys/rsget.pl/RSGet/Get.pm	Sun Oct  4 22:40:17 2009
@@ -188,7 +188,9 @@
 sub download
 {
 	my $self = shift;
+	$self->{stage_is_html} = shift;
 	my $uri = shift;
+
 	$self->print("starting download");
 	$self->get( \&finish, $uri, save => 1, @_ );
 }
@@ -215,7 +217,8 @@
 	if ( $self->{is_html} ) {
 		$self->print( "is HTML" );
 		$_ = $self->{body};
-		return $self->stage_is_html();
+		my $func = $self->{stage_is_html};
+		return &$func( $self );
 	}
 
 	RSGet::Dispatch::mark_used( $self );