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
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
