SVN: toys/rsget.pl/RSGet: HTTPRequest.pm ListManager.pm

[sparky]

Author: sparky
Date: Sat Sep 12 14:01:02 2009
New Revision: 10584

Modified:
   toys/rsget.pl/RSGet/HTTPRequest.pm
   toys/rsget.pl/RSGet/ListManager.pm
Log:
- don't be so eager about bad clones


Modified: toys/rsget.pl/RSGet/HTTPRequest.pm
==============================================================================
--- toys/rsget.pl/RSGet/HTTPRequest.pm	(original)
+++ toys/rsget.pl/RSGet/HTTPRequest.pm	Sat Sep 12 14:01:02 2009
@@ -163,6 +163,7 @@
 	my $name = sgml( $o->{name} );
 	my $size = bignum( $o->{size} );
 	$logo =~ s/ $//;
+	$uri = sgml( $uri );
 
 	my $prog = "";
 	$prog = qq#<div style="width: $o->{prog}"></div># if $o->{prog};

Modified: toys/rsget.pl/RSGet/ListManager.pm
==============================================================================
--- toys/rsget.pl/RSGet/ListManager.pm	(original)
+++ toys/rsget.pl/RSGet/ListManager.pm	Sat Sep 12 14:01:02 2009
@@ -17,6 +17,7 @@
 sub cmp_range
 {
 	my ($a, $b) = @_;
+	return 0 unless defined $a and defined $b;
 	@$a = reverse @$a if $a->[0] > $a->[1];
 	@$b = reverse @$b if $b->[0] > $b->[1];
 	return -1 if $a->[1] < $b->[0];
@@ -200,9 +201,11 @@
 	my $globals = shift;
 	my $uris = shift;
 
+	return 0 unless scalar keys %$uris > 1;
 	return 0 unless $globals->{fname};
 	my $sname = simplify_name( $globals->{fname} );
-	my $sizer = size_to_range( $globals->{fsize} );
+	my $sizer = undef;
+	$sizer = size_to_range( $globals->{fsize} ) if $globals->{fsize} > 0;
 
 	my $got_bad = 0;
 	foreach my $uri ( keys %$uris ) {