Author: sparky
Date: Mon Jan 4 19:07:37 2010
New Revision: 11091
Modified:
toys/rsget.pl/RSGet/Plugin.pm
Log:
- start guessing new getter from last guessed one
Modified: toys/rsget.pl/RSGet/Plugin.pm
==============================================================================
--- toys/rsget.pl/RSGet/Plugin.pm (original)
+++ toys/rsget.pl/RSGet/Plugin.pm Mon Jan 4 19:07:37 2010
@@ -263,12 +263,18 @@
}
-
+my $from_uri_last;
sub from_uri
{
my $uri = shift;
+ if ( $from_uri_last ) {
+ return $from_uri_last if $from_uri_last->can_do( $uri );
+ }
foreach my $getter ( values %getters ) {
- return $getter if $getter->can_do( $uri );
+ if ( $getter->can_do( $uri ) ) {
+ $from_uri_last = $getter;
+ return $getter;
+ }
}
return undef;
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
