[rt-users] rtx-validator compile error

[Adolfo Santiago]

I'm attempting to run the script "rtx-validator" from the RTx::Shredder
package, but I'm getting a compile error.  Here it is:

=====

Bareword "INVALID" not allowed while "strict subs" in use at ./rtx-validator
line 91.
Execution of ./rtx-validator aborted due to compilation errors.

=====

Line 91 is:

foreach my $record( keys %{ $shredder->{'Cache'} } ) {
    next unless( $record->{'State'} & INVALID );
<<<<----------------
    warn $record->{'Object'}->_AsString ."is invalid\n";
    warn "\t". ref($record->{'Description'}) ?
            join( "\n\t", $record->{'Description'} ) :
            $record->{'Description'}
        ."\n";
}

rtx-shredder works fine.  I'm trying to run "rtx-validator -o Ticket".

Any ideas?

Thanks!