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

[sparky]

Author: sparky
Date: Sat Jun  5 02:24:18 2010
New Revision: 11535

Modified:
   toys/rsget.pl/RSGet/Dispatch.pm
Log:
- don't warn about ! in slots:


Modified: toys/rsget.pl/RSGet/Dispatch.pm
==============================================================================
--- toys/rsget.pl/RSGet/Dispatch.pm	(original)
+++ toys/rsget.pl/RSGet/Dispatch.pm	Sat Jun  5 02:24:18 2010
@@ -131,12 +131,13 @@
 	$suggested = "1" unless defined $suggested;
 	if ( $cmd eq "check" ) {
 		my $max = setting( "max_slots_check" );
-		if ( $suggested =~ s/^!(\d+)// ) {
+		if ( $suggested =~ /^!(\d+)/ ) {
 			return $max < $1 ? $max : $1;
 		}
 		return $max;
 	} else {
 		my $max = setting( "max_slots" );
+		$suggested =~ s/^!//;
 		if ( $suggested =~ /^\d+$/ ) {
 			return $max < $suggested ? $max : $suggested;
 		}