1 2 3 4 5 6 7 8 9 10 11 12 13 14
use strict; use warnings; our @Initial = ( sub { my $attr = RT->System->FirstAttribute('BrandedSubjectTag'); return 1 unless $attr; my ( $status, $msg ) = $attr->Delete; unless ( $status ) { RT->Logger->error("Couldn't delete System BrandedSubjectTag: $msg"); } return 1; }, );