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

[sparky]

Author: sparky
Date: Wed Jul 21 20:58:59 2010
New Revision: 11690

Modified:
   toys/rsget.pl/RSGet/Get.pm
Log:
- record download problem if verbose >= 4


Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm	(original)
+++ toys/rsget.pl/RSGet/Get.pm	Wed Jul 21 20:58:59 2010
@@ -326,6 +326,7 @@
 	my $self = shift;
 	my $line = shift;
 	my $msg = $line ? "problem at line: $line" : "unknown problem";
+	$self->{_line}->clone->print( $self->{_name} . ": " . $msg ) if verbose( 4 );
 	my $retry = 6;
 	$retry = 3 if $self->{_cmd} eq "check";
 	if ( ++$self->{_try} < $retry ) {