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]; my ( $target, $param ) = split '/', $_[0];
unless ( defined $param ) { unless ( defined $param ) {
( $target, $param ) = ( $1, $2 ) if $target =~ /^(.*?)[(](.*)[)]$/; ( $target, $param ) = ( $1, $2 ) if $target =~ /^(.*?)[(](.+)[)]$/;
} }
( $target, $param ); ( $target, $param );