SVN: toys/rsget.pl/Link/LixIn

[sparky]

Author: sparky
Date: Tue Oct 27 01:26:04 2009
New Revision: 10870

Modified:
   toys/rsget.pl/Link/LixIn
Log:
- cosmetics


Modified: toys/rsget.pl/Link/LixIn
==============================================================================
--- toys/rsget.pl/Link/LixIn	(original)
+++ toys/rsget.pl/Link/LixIn	Tue Oct 27 01:26:04 2009
@@ -56,22 +56,20 @@
 		$i++;
 	}
 
+	ERROR( "no links" ) unless @forms;
 	$-{forms} = \@forms;
 	$-{links} = [];
 
 stage_nextlink:
-	my $f;
-	unless ( $f = shift @{ $-{forms} } ) {
-		LINK( @{ $-{links} } );
-	}
+	my $f = shift @{ $-{forms} };
 	$f->select( submit => 0 );
 	GET( $f->post() );
 
 	! m#<iframe .*?src="\s*(.*?)\s*"#;
-
 	push @{ $-{links} }, $1;
 
-	GOTO stage_nextlink;
+	GOTO stage_nextlink if @{ $-{forms} };
 
+	LINK( @{ $-{links} } );
 
 # vim: filetype=perl:ts=4:sw=4