[ic] Update userdb error message

[Russell Dilks]

Hi IC'ers

I am getting the following error when trying to update the userdb database 
directly from within a html page using the inline perl example given in the 
log_entry file and wondered if anyone had ever come across it before or has 
any idea what could cause it.

Safe: glob trapped by operation Mask at (eval 632) line 7

The reason for doing this in line is that I am adding the new user to the 
IC database for tracking orders after the Worldpay server has validated the 
payment and returned my callback page, the code is actually in the Callback 
page,  the transactions, orderline and inventory databases are updating OK 
using [import] - it is just the Userdb.
This halts the script and so the userdb does not get populated.  I have 
made sure that all the variables and form fields referenced from the perl 
script are accessible and OK

The script from within the callback page is:

Update userdb: [perl table=userdb]
	my $id = $Values->{username} = $Values->{customer_id};
	@always = qw/
					company
					fname
					lname
					address1
					address2
					city
					state
					zip
					country
					phone_day
					mv_shipmode
					mv_credit_card_type
					mv_credit_card_exp_month
					mv_credit_card_exp_year
					email
					phone_night
					fax_order
					email_copy
					mail_list
	/;
	@sometimes = qw/
						password
						b_fname
						b_lname
						b_address1
						b_address2
						b_city
						b_state
						b_zip
						b_country
						b_phone
						fax
						credit_limit
	/;

	my $db = $Db{userdb};
	
	if(! $db->record_exists($id)) {
		$db->set_row($id);
		$db->set_field($id, 'password', $Values->{password});
	}

	for(@always) {
		$db->set_field($id, $_, $Values->{$_});
	}

	for (@sometimes) {
		next unless $Values->{$_} =~ /\S/;
		$db->set_field($id, $_, $Values->{$_});
	}

	return "Updated customer record.";
[/perl]

Any Ideas anyone ?????

Cheers

Russ