Author: sparky
Date: Mon Oct 26 01:41:18 2009
New Revision: 10857
Modified:
toys/rsget.pl/RSGet/Dispatch.pm
Log:
- allow to force number of slots when checking uris
Modified: toys/rsget.pl/RSGet/Dispatch.pm
==============================================================================
--- toys/rsget.pl/RSGet/Dispatch.pm (original)
+++ toys/rsget.pl/RSGet/Dispatch.pm Mon Oct 26 01:41:18 2009
@@ -117,9 +117,12 @@
my $cmd = shift;
my $suggested = shift;
my $max = setting( "max_slots" );
- return $max if $cmd eq "check";
+ if ( $cmd eq "check" ) {
+ return 0 | $1 if defined $suggested and $suggested =~ /^!(\d+)/;
+ return $max;
+ }
return 1 unless defined $suggested;
- if ( $suggested =~ /^\d+$/ ) {
+ if ( $suggested =~ /^!?\d+$/ ) {
return $max if $max < $suggested;
return 0 | $suggested;
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
