>
>
> if ($choice !~ /^sub[12]$/)
> {
> &badchoice;
> }
> else
> {
> &{$hash{$choice}};
> }
>
Actually this if statement should've been
if ($hash{$choice})
{
&{$hash{$choice}};
}
else
{
&badchoice;
}
Much more gooder than the regex.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
