-#!/usr/bin/perl -w
use strict;
use warnings;
my $name = shift;
my %args = (@_);
- my $group = RT::Group->new( $RT::SystemUser );
+ my $group = RT::Group->new( RT->SystemUser );
$group->LoadUserDefinedGroup( $name );
unless ( $group->id ) {
my ($id, $msg) = $group->CreateUserDefinedGroup(