Don't recognize an empty param list

This commit is contained in:
Tom Eastep 2011-01-03 17:06:54 -08:00
parent b7a9a48508
commit 014d0eb607

View File

@ -135,7 +135,7 @@ sub get_target_param( $ ) {
my ( $target, $param ) = split '/', $_[0];
unless ( defined $param ) {
( $target, $param ) = ( $1, $2 ) if $target =~ /^(.*?)[(](.*)[)]$/;
( $target, $param ) = ( $1, $2 ) if $target =~ /^(.*?)[(](.+)[)]$/;
}
( $target, $param );