Can't call method "GetHeader" on an undefined value

This morning, my production RT server pitched an error on a global scrip, then the web UI would hung and not let anyone log in. Can anyone make anything of this message? RT has been oddly flakey since our IT group moved it to a VM. It’s making me a bit nervous. It seems to have continued creating the ticket, but not without wigging out first.

[Fri Oct 2 17:21:11 2009] [error]: Scrip 16 Commit failed: Can’t call method “GetHeader” on an undefined value at (eval 2250) line 1.

Stack:
[(eval 2250):1]
[/usr/lib/rt/RT/ScripAction_Overlay.pm:241]
[/usr/lib/rt/RT/Scrip_Overlay.pm:507]
[/usr/lib/rt/RT/Scrips_Overlay.pm:192]
[/usr/lib/rt/RT/Transaction_Overlay.pm:170]
[/usr/lib/rt/RT/Record.pm:1438]
[/usr/lib/rt/RT/Ticket_Overlay.pm:720]
[/var/rt/html/index.html:102]
[/var/rt/html/autohandler:215]
(/usr/lib/rt/RT/Action/UserDefined.pm:81)
[Fri Oct 2 17:21:11 2009] [info]: rt-3.4.5-4232-1254504069-720.592-22-0@TiVo #592/16511 - Scrip 22 Notify Ccs on New Ticket (/usr/lib/rt
/RT/Action/SendEmail.pm:237)
[Fri Oct 2 17:21:12 2009] [debug]: About to think about scrips for transaction #16513 (/usr/lib/rt/RT/Transaction_Overlay.pm:156)

It’s a scrip to set priority based on the to header. I’ve never seen GetHeader fail before.

my $to = $self->TransactionObj->Attachments->First->GetHeader(‘To’);
$RT::Logger->debug(“To email was: $to”);
if ($to =)
{
$self->TicketObj->SetPriority(98);
return 1;
}

return 0;

Kimberly McKinnis
System Operations Engineer
Service Provider Division, TiVo Inc
408-519-9607