This commit is contained in:
Clément Oudot 2010-10-01 15:05:06 +00:00
parent 24dc3d54e9
commit 7a84710467

View File

@ -71,8 +71,8 @@ sub sregHook {
@req = sregfilter( $self, @req );
@opt = sregfilter( $self, @opt );
# If nothing is asked,
return ( 1, {} ) unless ( @req and @opt );
# Return if nothing is asked
return ( 1, {} ) unless ( @req or @opt );
# If a required data is not available, returns nothing
foreach my $k (@req) {