On Fri, 14 Nov 2003 07:47:36 +1100, Colin Johnstone wrote:
>   my $formName = 'form'.$self->?

  my $formName = 'form' . $self->{'FRM_CNT'};

>   my ($proto, $sysData) = @_;
>   my $class = ref($proto) || $proto;

No need for all this.  Just write:

  my $class   = shift;
  my $sysData = shift;


-- 
Tore Aursand <[EMAIL PROTECTED]>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to