-Original Message-
From: Tobin, Elliot [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 06, 2002 9:55 AM
To: '[EMAIL PROTECTED]'
Subject: Arrays inside
I have the following as my data inside a package:
my $dataBlock = { isInsertable= $isInsertable,
see inline comments:
-Original Message-
From: Tobin, Elliot [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 06, 2002 9:55 AM
To: '[EMAIL PROTECTED]'
Subject: Arrays inside
I have the following as my data inside a package:
my $dataBlock = { isInsertable=
On Friday, September 6, 2002, at 08:54 AM, Tobin, Elliot wrote:
I have the following as my data inside a package:
my $dataBlock = { isInsertable= $isInsertable,
fields = undef,
fields =
On Sep 6, Tobin, Elliot said:
sub setFields
{
my ($inBlock, @fieldList) = @_;
foreach my $i (@fieldList)
{
push($inBlock-{'fields'}, $i);
You'd need to say
push @{ $inBlock-{fields} }, $i;
}
return $inBlock;
}
But given your current function, it's far faster
