The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%ARGS>
$MergeFrom
$MergeTo
</%ARGS>

<%INIT>
if(my $lock = $MergeFrom->Locked()) {
    my $lockType = $lock->Content->{'Type'};
    $MergeTo->Lock($lockType) unless $lockType eq 'Auto';
    $MergeFrom->Unlock('Hard');    #We don't need any locks on the merged-from ticket, since it's now the merge-to ticket
}
</%INIT>